diff options
| author | Paul Buetow <paul@buetow.org> | 2009-01-27 23:25:11 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2009-01-27 23:25:11 +0000 |
| commit | 19f9940dc968afae01b54377ee23ec59069c9646 (patch) | |
| tree | f3aeb664f44aec07de640bce0326ec1b5e478c51 /scripts/modules | |
| parent | 1c8047e99b6a7199e447bb5a70438837cc5f7890 (diff) | |
Diffstat (limited to 'scripts/modules')
| -rw-r--r-- | scripts/modules/file.pm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/scripts/modules/file.pm b/scripts/modules/file.pm deleted file mode 100644 index b11e2b3..0000000 --- a/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; |
