学步园

#!/usr/bin/perl

sub gotest{
my(@tmp)=@_;

open (MYFILE, $tmp[0]) || die ("Could not open file");
my($line,$newline);
while ($line=<MYFILE>) {
$line=~ tr/a-zA-Z//s;
  print "good \n";
  print "\$line is :$line";
  print "\$\& is : $&", "\n";
  }

close(MYFILE);
}    

require ("file1.pl");

$file="/home/macg/perltest/gogo";
&gotest($file);

@arrary=qw(a b cc dd);
$pointer = \@arrary;
for($i=0;$i<4;$i++) {
   print "$i : $pointer->[$i] \n";  }

#!/usr/bin/perl

sub gotest{
my(@tmp)=@_;

open (MYFILE, $tmp[0]) || die ("Could not open file");
my($line,$newline);
while ($line=<MYFILE>) {
$line=~ tr/a-zA-Z//s;
  print "good \n";
  print "\$line is :$line";
  print "\$\& is : $&", "\n";
  }

close(MYFILE);
}

1;   

$file="/home/macg/perltest/gogo";
&gotest($file);
 

[macg@localhost perltest]$ ./tip.pl
good
$line is :I WANTWANT TO go to NY. And I also wWant to be DC

#!/usr/bin/perl

require ("file1.pl");

$file="/home/macg/perltest/gogo";
&gotest($file);

unshift (@INC, "/home/macg/perltest/testdir");
require ("file1.pl");

$file="/home/macg/perltest/gogo";
&gotest($file);

@arraytest=qq(hello "test" world);
#!/usr/bin/perl
foreach  (@INC) {
 print $_,"\n";
}

#!/usr/bin/perl
$path1="/home/macg";
$path2="/home/macg/www";
push(@INC,$path1);      放尾部
unshift(@INC,$path2);  放头部
foreach  (@INC) {
 print $_,"\n";
}