Can I use a regex here?

mndoci has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Can I use a regex here? by Masem (Monsignor) on Apr 17, 2001 at 01:24 UTC
If you put your log file names into an array, you can use map to do this: `@old_log_files = [ $LOG_FILE_1, $LOG_FILE_2, ...]; @new_log_files = map { "$OUT_DIR/allfiles/$_" } @old_log_files; for (i=0;$i<scalar @old_log_files; $i++) { rename $old_log_files[$i], $new_log_files[$i]; }` [download] Dr. Michael K. Neylon - mneylon-pm@masemware.com \|\| "You've left the lens cap of your mind on again, Pinky" - The Brain	[reply] [d/l]
(jeffa) 2Re: Can I use a regex here? by jeffa (Bishop) on Apr 17, 2001 at 01:30 UTC
Leave the C-Style for loops for C: `for (0..$#old_log_files) { rename $old_log_files[$_], $new_log_files[$_]; }` [download] So much nicer, and easy on the hands. :) Jeff R-R-R--R-R-R--R-R-R--R-R-R--R-R-R-- L-L--L-L--L-L--L-L--L-L--L-L--L-L--	[reply] [d/l]
Re (PotPieMan): Can I use a regex here? by PotPieMan (Hermit) on Apr 17, 2001 at 01:29 UTC
While Masem's suggestion should work, you could do it more simply with loop. For example: `for my $number (1 .. $END) { my $logFile = 'pair' . $number . $RUN_NAME . '.log'; rename $logFile, "$OUT_DIR/allfiles/$logFile"; }` [download] (You could skip the "`my $number`" for idiomatic purposes and use `$_` instead.) --PotPieMan	[reply] [d/l] [select]
Re: Can I use a regex here? by I0 (Priest) on Apr 17, 2001 at 03:31 UTC
`rename $_, "$OUT_DIR/allfiles/$_" foreach( $LOG_FILE_1, $LOG_FILE_2 );`	[reply] [d/l]
Re: Can I use a regex here? by traveler (Parson) on Apr 17, 2001 at 02:10 UTC
If I understand the problem correctly, what about `map { rename "pair${_}" . $RUN_NAME . ".log" "$OUT_DIR/"."allfiles/". +"$LOG_FILE_${_}" } (1..10);` [download] Of course, you may be able to simplify the strings a bit. --traveler	[reply] [d/l]
Re: Can I use a regex here? by repson (Chaplain) on Apr 17, 2001 at 05:49 UTC
Since the filenames follow a pattern, if the number of files is indeterminate or you perfer not to use the individual declarations shown above, you could do something like this: `rename $_, $OUT_DIR . "/allfiles/$_" for (glob 'pair*' . $RUN_NAME . '.log');` Alternately you could use opendir and readdir with a regex to check the filename instead using of shell-like globbing.	[reply] [d/l]
Re: Re: Can I use a regex here? by mndoci (Scribe) on Apr 18, 2001 at 01:24 UTC
This sounds good. My thinking is that since there is a pattern, I would like to use that in some way. Most of the suggestions to my earlier post sound good. However, if your suggestion works, it would be perfect. Thanks mndoci "What you do in this world is a matter of no consequence. The question is, what can you make people believe that you have done?"-Sherlock Holmes in 'A study in scarlet'	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks