Help for this page

Select Code to Download


  1. or download this
    my $dash = '-';
my ( $prefix, $suffix, @range, );
...
$range[1] = 10;
my $new_name = sprintf ("$format", @$args);
print "NEWNAME -> $new_name\n";
  2. or download this
    my $dash = '-';
my ( $prefix, $suffix, @range, );
...
$range[1] = 10;
my $new_name = sprintf "$format", eval "$args"; #changed
print "NEWNAME -> $new_name\n";