Help for this page

Select Code to Download


  1. or download this
    use File::Basename;
my $cwd = dirname $0;
...
$cwd = $1;
print $cwd;
require "$cwd/lib/Cisco/MyCopy3.pm";
  2. or download this
    Use of uninitialized value in print at bin/cpcfg.pl line 26.
Use of uninitialized value in concatenation (.) or string at bin/cpcfg
+.pl line 2
7.
  3. or download this
    my $cwd = "/ddd/862/8u/sss";
$cwd =~ qw "(/.*)/" ;
$cwd = $1;
print $cwd;
require "$cwd/lib/Cisco/MyCopy3.pm";