18 lines
299 B
Perl
18 lines
299 B
Perl
#!/usr/local/bin/perl
|
|
|
|
open (FILE1, ">file1");
|
|
$string = "this is a test";
|
|
select (FILE1);
|
|
&writeline;
|
|
select (STDOUT);
|
|
&writeline;
|
|
close (FILE1);
|
|
|
|
sub writeline {
|
|
$~ = "WRITELINE";
|
|
write;
|
|
}
|
|
|
|
format WRITELINE =
|
|
I am writing @<<<<< to my output files.
|
|
$string |