codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl if (@ARGV != 1) { print "usage ./catrev.pl file1"; print "@ARGV"; exit; } else { $file1 = pop(@ARGV); open(FILE1,$file1); @array1 = <FILE1>; foreach (@array1) { $each = reverse($_); print "$each\n" } print "what would you like your file name to be?\n"; $filename = <STDIN>; chomp ($filename); if (($filename == "") || ($filename == undef)) { print "enter some data!"; exit; } else { sub hellofile { print "$_[0] is the file to be written"; open (FILE, '> $_[0]') or die "cant create file"; close(FILE); } hellofile($filename); } }
Private
[
?
]
Run code
Submit