Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $obj = test->new('okay');
print $obj->getField."\n";
print $obj->sockhost."\n";
  2. or download this
    root~/perl»./test1.pl 
okay
Not a GLOB reference at /usr/lib64/perl5/5.14.2/x86_64-linux-thread-mu
+lti/IO/Socket.pm line 246.
Bye!
  3. or download this
    #!/usr/bin/perl
use strict;
...

my $two = test->new("two");
print $two->getField."\n";
  4. or download this
    root~/perl»./test2.pl 
okay
...
two
Bye!
Bye!