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.
|
#!/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 |