2000/0827to:
08/27/2000this isnt working:
#!/usr/local/bin/perl -w
use strict;
my $date_cfg;
my $new_date;
print "Enter date of config file using < yyyy/mmdd >: ";
chomp ( $date_cfg = <STDIN>);
until ( -e "/home/limo/Perl/$date_cfg/test") {
die "Error: $!\n";
}
$date_cfg =~ s!(d{4})/(d{4})!$2/$3/$1!;
print "Creating Juniper configuration file from: $date_cfg\n";
I also tried :
....snip print "Creating Juniper configuration file from: $2/$3/$1\n"Doesn't work.
In reply to positional variable question by Limo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |