??????? Perl5????????

@reqlist = ("file1.pl", "file2.pl", "file3.pl");
require ($reqlist[$0]);
require ($reqlist[$1]);
require ($reqlist[$2]);

a??????????????????
b????????????????????????У?????????????????
c?????????β????????????????????????? 1;
d??????????????require?????????????????????
e????????????????? -I ?????????????????????????require???????????@INC?????С?

1????????unshift????@INC???????????????push?????push?????@INC???β???????????????????
2????????????????/usr/local/lib/perl?е???????????????????????????require????????????е???????

$var = 14;
package mypack;
$var = 6;

1: #!/usr/local/bin/perl
2:
3: package pack1;
4: $var = 26;
5: package pack2;
6: $var = 34;
7: package pack1;
8: print ("$var\n");

$ program
26
$

package mypack;
$var = 26;
package main;
print ("$mypack'var\n");

package mypack;
subroutine mysub {
  local ($myvar);
  # stuff goes here
}

package pack1;
subroutine mysub {
  $var1 = 1;
  package pack2;
  $var1 = 2;
}

1 : package privpack;
2 : $valtoprint = 46;
3 :
4 : package main;
5 : # This function is the link to the outside world.
6 : sub printval {
7 :   &privpack'printval();
8 : }
9 :
10: package privpack;
11: sub printval {
12:   print ("$valtoprint\n");
13: }
14:
15: package main;
16: 1; # return value for require

???????STDIN, STDOUT, STDERR ?? ARGV

????%ENV, %INC, @INC, $ARGV ?? @ARGV

???????????????????????

1 : #!/usr/local/bin/perl
2 :
3 : package Mymodule;
4 : require Exporter;
5 : @ISA = qw(Exporter);
6 : @EXPORT = qw(myfunc1 myfunc2);
7 : @EXPORT_OK = qw($myvar1 $myvar2);
8 :
9 : sub myfunc1 {
10:   $myvar1 += 1;
11: }
12:
13: sub myfunc2 {
14:   $myvar2 += 2;
15: }

1: #!/usr/local/bin/perl
2:
3: use integer;
4: $result = 2.4 + 2.4;
5: print ("$result\n");
6:
7: no integer;
8: $result = 2.4 + 2.4;
9: print ("$result\n");

$ program
4
4.8
$

use integer;
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;

4
6.8
8

????? ????? ??