#!/usr/bin/perl -w use strict; my @files = qw( 0000002.dat 0000102.dat 0000001.dat ); my $highest_file = ''; my $test_file = ''; foreach $test_file( @files ){ if( $test_file gt $highest_file ){ $highest_file = $test_file; } } print "highest numbered file is $highest_file\n"; my $base_name = $highest_file; $base_name =~ /^(\d+)(.+)/; $base_name = $1; my $suffix = $2; $base_name++; print "Next file name is $base_name$suffix\n";
In reply to Re: file/directory operations
by mrbbking
in thread file/directory operations
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |