Help for this page

Select Code to Download


  1. or download this
    $name = ..... # whatever
my $i= '';
--$i while (-e $name . $i);
$name.= $i;
  2. or download this
    my $check= $name;
$check=~ s#(\.[^./]*)$##;
...
my $i= '';
--$i while (-e $check . $i . $ext);
$name= $check . $i . $ext;