You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
299 B
Perl
18 lines
299 B
Perl
5 years ago
|
#!/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
|