diff options
Diffstat (limited to '0.8/scripts/modules')
| -rw-r--r-- | 0.8/scripts/modules/file.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/0.8/scripts/modules/file.pm b/0.8/scripts/modules/file.pm deleted file mode 100644 index b11e2b3..0000000 --- a/0.8/scripts/modules/file.pm +++ /dev/null @@ -1,28 +0,0 @@ -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; |
