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.
|
|
|
#!/bin/perl
|
|
open(README, "/etc/passwd") || die;
|
|
|
|
&readit(\*README); # Reference to a typeglob
|
|
|
|
sub readit {
|
|
my ($passwd)=@_;
|
|
print "\$passwd is a $passwd.\n";
|
|
while(<$passwd>){
|
|
print;
|
|
}
|
|
}
|
|
|
|
seek(README,0,0) || die "seek: $!\n"; # Reset back to begining of job
|
|
|
|
|