Help for this page

Select Code to Download


  1. or download this
    unless(/^([\w.-]) \s+ ([\w.-])$/x) {
  2. or download this
    AB0000011   LA120040212
BB0000012   LB20040212
  3. or download this
    #!/usr/bin/perl -w
use strict;
use warnings;
...
system("mv /var/files/info /var/save/$subfolder_name");
system("mv $new /var/save/$subfolder_name");
exit;