Select Code to Download

C:\perlscripts>more 3par.txt
Id Name Persona -WWN/iSCSI_Name- Port

...
                         1122334455667799 3:3:1
                         1122334455667788   ---
                         1122334455667799 4:3:1

#!/usr/bin/perl
use warnings;
use strict;
...
{
    print "$para" if $para =~ /---/;
}

C:\perlscripts>perl test_3par_tp.pl 3par.txt
Done writing to space_sep.txt.

...


C:\perlscripts>

use Learning::Perl;
use Beginning::Perl::Ovid;
print "Awesome Books";