PERL find files

kanishka1213

i want to find files in a directory that can have multiple dots. like

Could not open 'Streams/Allegro_FUNNY_A_00_HD2_10.4.trp'
Could not open 'Streams/Allegro_FUNNY_B_00_HD2_10.4.ts'
Could not open 'Streams/Allegro_POC_CAVLC_00_5x6_10.3.ts'
Could not open 'Streams/C40UDTA.b.trp'

i could parse all other streams well but couldnt open the onces that had more than one dot.can any one correct my regex pattern?

Expand|Select|Wrap|Line Numbers

if(/\w+\...(dts|ts|trp|mpg|TRP)/)

numberwhun

Quote:

Originally Posted by kanishka1213

i want to find files in a directory that can have multiple dots. like

Could not open 'Streams/Allegro_FUNNY_A_00_HD2_10.4.trp'
Could not open 'Streams/Allegro_FUNNY_B_00_HD2_10.4.ts'
Could not open 'Streams/Allegro_POC_CAVLC_00_5x6_10.3.ts'
Could not open 'Streams/C40UDTA.b.trp'

i could parse all other streams well but couldnt open the onces that had more than one dot.can any one correct my regex pattern?

Expand|Select|Wrap|Line Numbers

if(/\w+\...(dts|ts|trp|mpg|TRP)/)

Well, I changed your regex to be:

Expand|Select|Wrap|Line Numbers

/\w+.*(dts|ts|trp|mpg|TRP)/

That matched (as did yours), so I am not sure what is going on. You need to share the rest of your code so we can see what's going on. The errors you gave were errors opening the files, not matching. Please provide the rest of your code so we may see what is happening.

Regards,

Jeff

kanishka1213

Expand|Select|Wrap|Line Numbers

 
#!/perl/bin/perl
 
use CGI qw(:standard);

use CGI::Carp qw(fatalsToBrowser);

use File::Basename;

use File::Find;

print header;
 
my @unparsed_files;

my $parser_tool_dir="C:/Program Files/Manzanita Systems/MP2TSA 3";

my $dir="F:";
 
my ($stream_name,$stream_loc,$htmlstream,$stream,$txtstream,$docstream);

my $count_present=0;

my $count_absent=0;

my $count_total=0;
 
find(\&edits,$dir);
 
sub edits

{

    #Finds files with following extensions

    if(/\w+\.(dts|ts|trp|mpg|TRP)/)  

    {

        $count_total++;                 #count the number of files found

        $stream_name=$_;
 
        #name of stream

        $stream_loc=$File::Find::name;  #path of stream
 
        my($stream_name, $stream_loc) = fileparse($stream_loc);
 
        $stream_name=~ s/\..*//; #stripping off the stream extension

        $htmlstream=$stream_loc.$stream_name.".html";  #appending html extsion

        $txtstream=$stream_loc.$stream_name.".txt";

        $docstream=$stream_loc.$stream_name.".doc";

        if((-e $htmlstream)||(-e $txtstream)|| (-e $docstream))

        {

            $count_present++;         #streams are present

        }

        else

        {

            $stream=$File::Find::name;

            $count_absent++;          #streams are absent

            push(@unparsed_files,$stream);    

        }

    }

}
 
my ($stream_file,$html_file);
 
find(\&analyze,$parser_tool_dir);

sub analyze

{

    if($_ eq 'mp2tsa.exe')

    {

        foreach $stream_file(@unparsed_files)

        {        

            $html_file=$stream_file;

            $html_file=~ s/\..*//;         #stripping off extension

            $html_file=$html_file.".html";

            my $status = system("mp2tsa.exe -o $html_file $stream_file");

        }

    }

}

print "<BR>Scanning Directory: $dir";

print "<BR>Total Streams Scanned: $count_total";

print "<BR>Parsed Streams Found : $count_present";

print "<BR>Unparsed Streams Found: $count_absent";

KevinADC

the multiple dots seem to have nothing to do your problem. It appears you are trying to match certain file extensions so you should anchor the regexp to the end of the string:

Expand|Select|Wrap|Line Numbers

if(/\.(dts|ts|trp|mpg|TRP)$/)

The error "Could not open" appears to be coming from the system() call and not anything to do with perl.

numberwhun

Quote:

Originally Posted by KevinADC

the multiple dots seem to have nothing to do your problem. It appears you are trying to match certain file extensions so you should anchor the regexp to the end of the string:

Expand|Select|Wrap|Line Numbers

if(/\.(dts|ts|trp|mpg|TRP)$/)

The error "Could not open" appears to be coming from the system() call and not anything to do with perl.

See, that's why I wanted to see the code, because a regex would not cause an open failure message.

I agree with Kevin, whatever that program is, that is causing the issue. It might be path related or permissions, so look into that.

Regards,

Jeff

kanishka1213

yes. i also think the same.
but when i try to on the normal windows command line the same call on those files that couldnt open , they open also, get analysed and their relative html is also produced.

when i works fine wiht windows cmd line. i dnt understand y the same command doesnt work when embedded as a system call in perl program.

kanishka1213

and u know what not all files are giving this error.
some of them run and some of them gives error.
strange !!!!!!!!
Could not open '2.mpg'
Could not open '2.mpg'
Could not open 'lipsync/64QAM_t0508-old3.trp'
Could not open 'lipsync/64QAM_t0508-old3.trp'
Could not open 'lipsync/64QAM_t0508-old4.trp'
Could not open 'lipsync/64QAM_t0508-old4.trp'
Could not open 'lipsync/64QAM_t0508-old5.trp'
Could not open 'lipsync/64QAM_t0508-old5.trp'
Could not open 'lipsync/64QAM_t0508-old6.trp'
Could not open 'lipsync/64QAM_t0508-old6.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480i.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480i.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync720p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync720p.trp'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC1080i.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC1080i.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC480p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC480p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC720p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC720p.TRP'
Could not open '204.mpg'
Could not open '204.mpg'
Could not open 'Streams/2_dialnormswp..trp'
Could not open 'Streams/2_dialnormswp..trp'
Could not open 'Streams/2_dvblevel_ddp..trp'
Could not open 'Streams/2_dvblevel_ddp..trp'
Could not open 'Streams/2_k5compress..trp'
Could not open 'Streams/2_k5compress..trp'
Could not open 'Streams/2_ref997..trp'
Could not open 'Streams/2_ref997..trp'
Could not open 'Streams/acmod1_0..trp'

numberwhun

Quote:

Originally Posted by kanishka1213

and u know what not all files are giving this error.
some of them run and some of them gives error.
strange !!!!!!!!
Could not open '2.mpg'
Could not open '2.mpg'
Could not open 'lipsync/64QAM_t0508-old3.trp'
Could not open 'lipsync/64QAM_t0508-old3.trp'
Could not open 'lipsync/64QAM_t0508-old4.trp'
Could not open 'lipsync/64QAM_t0508-old4.trp'
Could not open 'lipsync/64QAM_t0508-old5.trp'
Could not open 'lipsync/64QAM_t0508-old5.trp'
Could not open 'lipsync/64QAM_t0508-old6.trp'
Could not open 'lipsync/64QAM_t0508-old6.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480i.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480i.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync480p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync720p.trp'
Could not open 'lipsync/Lipsync_TestStreams/64QAM_lipsync720p.trp'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC1080i.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC1080i.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC480p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC480p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC720p.TRP'
Could not open 'lipsync/Lipsync_TestStreams/LIPSYNC720p.TRP'
Could not open '204.mpg'
Could not open '204.mpg'
Could not open 'Streams/2_dialnormswp..trp'
Could not open 'Streams/2_dialnormswp..trp'
Could not open 'Streams/2_dvblevel_ddp..trp'
Could not open 'Streams/2_dvblevel_ddp..trp'
Could not open 'Streams/2_k5compress..trp'
Could not open 'Streams/2_k5compress..trp'
Could not open 'Streams/2_ref997..trp'
Could not open 'Streams/2_ref997..trp'
Could not open 'Streams/acmod1_0..trp'

Again, is it a path issue? Where is the script sitting in relation to these paths? From what I see, it would have to be in the parent directory and all these would have to be subdirectories of that parent. You may want to consider using absolute paths to avoid this issue.

Regards,

Jeff

kanishka1213

Thanks Jeff,

i noticed the same. i copied some of the files that were in error list in one folder in c drive and it parsed all files perfectly. so the issue is when the depth of the folder gets larger the tool is not able to find it . c the folder depth.
"F:\Audio\Audio\lipsync-sharlik\new lipsync\Lipsync_TestStreams\unparsedfile.trp". so you mean to say i should use absolute paths.
but i scan entire F: drive as u see in the code. so i just named dir path as "F:".. and the path of the stream is
"F:/Audio/Dolby DD+/DD+ Streams/acmodswp.trp" is this not absolute path? m sorry my concepts are not so clear regarding this..

thanks for the real quick answer

kanishka1213

No pain to analyze the problem any more. i got the solution. its works fine now. thanks Jeff and Kevin again. I really appreciate your help.

PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

re: PERL find files

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about