blob: b11e2b313d232ab711b65d62e1b6939c5dd0db3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
sub dopen
{
my $shift = shift;
opendir DIR, $shift or die "$shift: $!\n";
my @dir = readdir(DIR);
closedir DIR;
return @dir;
}
sub fopen
{
my $shift = shift;
open FILE, $shift or die "$shift: $!\n";
my @file = <FILE>;
close FILE;
return @file;
}
sub fwrite
{
my $shift = shift;
my @file = @_;
open FILE, ">$shift" or die "$shift: $!\n";
print FILE @file;
close FILE;
}
1;
|
