Help for this page

Select Code to Download


  1. or download this
    "I000001","dummy","dummy"
"I000003","dummy","dummy"
...
"I000004","dummy","dummy"
"I000010","dummy","dummy"
"I000019","dummy","tommy"
  2. or download this
    my $content;
open FILE, '+<', 'file.dat' or die "Could not open 'file.dat': $!\n";
...
$content =~ s/(?<=^"\w)(\d{6})/sprintf "%06d", $1 + 1/e;
print FILE "\n$content";
close FILE;
  3. or download this
    perl -e "$x = 'I000199'; print ++$x"