Quick bit of Perl help (Windows)

[leezer3]

Hiya,
Really ought to be able to figure this one out myself, but I'm a little stuck
I've got a perl script which automatically muxes all the AVI files in ints directory into MKV, which looks like this-

foreach (<*.avi>) {
  $cmd = "mkvmerge $_ -o ";
  s/\.avi$/.mkv/;
  $cmd .= $_;
  system($cmd);
}

What I want to do is add a cleanup segment to the script, so that it removes all the starting AVI files when its done. My initial thoughts would be that I need to run the first segment of the script in a loop, before switching to the cleanup part, but I can't seem to get it so that it knows its finished properly.

Cheers

-Leezer-

 

[JIMA]

Hi,

You might want to look at the IPC::System module to see if that will improve things.

From what I remember and have read the "system" command uses fork to start off another process, and then waits till this process finishes before continuing.

Windows, at least when I last looked, didn't support fork in Perl (the whole threads thing was rather flaky) so maybe that's causing bother?

Jim

 

[M0KUJ1N]

Hiya,
Really ought to be able to figure this one out myself, but I'm a little stuck
I've got a perl script which automatically muxes all the AVI files in ints directory into MKV, which looks like this-

foreach (<*.avi>) {
  $cmd = "mkvmerge $_ -o ";
  s/\.avi$/.mkv/;
  $cmd .= $_;
  system($cmd);
}

What I want to do is add a cleanup segment to the script, so that it removes all the starting AVI files when its done. My initial thoughts would be that I need to run the first segment of the script in a loop, before switching to the cleanup part, but I can't seem to get it so that it knows its finished properly.

Cheers

-Leezer-

I might be reading this slightly wrong but I think you want:

foreach (^*.avi>) {

instead of

foreach (<*.avi>) {

Also you haven't escaped the . in your regexp, it should read:

s/\.avi$/\.mkv/;

I think that is a typo more than anything else as you have it right in the first half of the regexp.
I've used the system call successfully using ActivePerl on Windows so I dont think there should be a problem with that.

HTH

 

[leezer3]

No, the first segment of original code is right
Yep, the second was a typo on my part, but it still works with it in place.

I've found my own problem though- Its spaces in file & directory names. I'll think about fixing this further later

-Leezer-

 

[robmiller]

I'll think about fixing this further later

You just need to quote the filename when passing it to the shell.

 

[leezer3]

Yeah, I know, but this presents problems with the script itself; Its generating the command passed to the shell dynamically (And this is where the problem is), & it doesn't take kindly to having quotes shoved into it. Theres a simple way to fix this, I'm sure of it but not at this time in the morning!

-Leezer-