Help for this page

Select Code to Download


  1. or download this
    use File::Basename;
$record = "FRAG 1 1 2000000 0 0 0 0 \\\\172.20.13.49\\backup\\rbgmst02
+_dd2\\stu1\\CPOSTA_1221170039_C1_F1 rbgmst02 65536 0 0 -1 0 *NULL* 12
+22379639 1 65537 0 0 0 0 0 0 0";
...
}
__END__
CPOSTA_1221170039_C1_F1
  2. or download this
    $record = "FRAG 1 1 2000000 0 0 0 0 \\\\172.20.13.49\\backup\\rbgmst02
+_dd2\\stu1\\CPOSTA_1221170039_C1_F1 rbgmst02 65536 0 0 -1 0 *NULL* 12
+22379639 1 65537 0 0 0 0 0 0 0";
if($record =~ m|FRAG|)
...
}
__END__
CPOSTA_1221170039_C1_F1