[NTLUG:Discuss] Perl help

[Stuart Johnston]

You can use Eric's solution by simply prepending the path:

my $path = '/path/to/files';
for $n ( 31000 .. 31500 ) { if ( ! -e "$page/$n.wav" ) ...


Michael Barnes wrote:
> Thanks, Eric.  This works fine run from command line in the folder
> containing the desired files.
> However, I need to include it into a script along with a bunch of
> other things.  It will not be in the folder containing the files.
> 
> I have tried
> 
> $n = glob "/path/to/files/*";
> 
> which, of course does not work.
> 
> I guess I need to get a
> 
> foreach $n (@files) {
> 
> type of thing in there, but I can't get it to work.
> 
> Thanks for your kind assistance.
> 
> Michael
> 
> On Feb 5, 2008 4:33 PM, Eric Waguespack <ewaguespack at gmail.com> wrote:
>> perl -e 'for $n ( 31000 .. 31500 ) { if ( ! -e "$n.wav" ) { print
>> "$n.wav\n"; exit }}; done'
>>
>> ./e
>>
>>
>> On Feb 5, 2008 4:10 PM, Michael Barnes <barnmichael at gmail.com> wrote:
>>> I'm looking for a quick perl script and my brain just isn't
>>> functioning right now.
>>>
>>> I have a folder full of audio files.  Each file is a five digit
>>> number.wav, i.e. 12345.wav.
>>>
>>> Files are entered in this folder into particular groups of numbers, so
>>> there are lots of gaps.
>>>
>>> I need to search a range of these files from 31000.wav to 31500.wav
>>> (ignoring everything below 31000 and above 31500) and find the largest
>>> available file number to use.  There may be files 31000.wav-31057.wav
>>> in use,  (There would be no files 31058-31500) making 31058 the next
>>> available file.
>>>
>>> All I need to do is get the next number (31058 in this case) into a
>>> variable to be used elsewhere.
>>>
>>> I know this should be quite easy, but I sure can't get my head around
>>> it right now.
>>>
>>> Thanks for any help you can come up with.
>>>
>>> Michael
>>>
> 
> _______________________________________________
> http://www.ntlug.org/mailman/listinfo/discuss