To test the pattern whether it is.jpg or .xml by comparing with the extension

[RaviRajhulk]

I need to write the image files in one file and (the xml and html) in another file from a common file. I am trying to compare the extensions,like if it is .jpg or .bmp it will be written to the image file and if it is .html or .xml it will be written to the app file.But I am not able to do so.My code is given below

open (MyFileHandle,"<C\:\\home\\commonfilelist.txt");
open (MyWebFileHandle,">$imagefile") or die("File Open Error");
open (MyAppFileHandle,">$Appfile") or die("File Open Error");
 
# Read till end of file.
until((eof(MyFileHandle)) && (seek(MyFileHandle,0,0) != eof(MyFileHandle)))
{
# Check if data exists. If empty exit with appropriate error.        
    $Text = readline(MyFileHandle);
    if(defined($Text)) 
    {
        #@ArrayTemp = split("/",$Text);
            #$Ch = substr($ArrayTemp[0],0);
            $result=rindex($Text,".");
            $pattern=substr($Text,$result);
            if($pattern eq (("jpg")||("bmp")))
            {
                print MyWebFileHandle $Text;
                print MyWebFileHandle "\n";
            }
            elsif ($pattern eq (("xml")||("html")))
            {
                print MyAppFileHandle $Text;
                print MyAppFileHandle "\n";
            }
 
            else
            {
                print "Not an image and Html.\n";
            }
    }
}

[rajiv07]

open(COMMON,"c:/perl/common.txt") or die $!;
 
open(IMAGE,">c:/perl/image.txt") or die $!;
 
open(HTML,">c:/perl/html.txt") or die $!;
 
my @commonFile=<COMMON>;
 
print IMAGE grep(/\.(jpg|bmp)$/,@commonFile);
 
print HTML grep(/\.(xml|html)$/,@commonFile);

Hopes it help

Regards
Rajiv

[nithinpes]

You can simplify your search script to this:

open (MyFileHandle,"<C\:\\home\\commonfilelist.txt");
open (MyWebFileHandle,">$imagefile") or die("File Open Error");
open (MyAppFileHandle,">$Appfile") or die("File Open Error");
while(<MyFileHandle>)  {
if((/\.jpg/)||(/\.bmp/)) {
 print MyWebFileHandle $_; }
elsif((/\.html?/)||(/\.xml/)) {
 print MyAppFileHandle $_; }
else {
chomp;
print "$_  is not an image or Html.\n"; }
}
 
 

[nithinpes]

Well...what Rajiv has posted is even more crisp and very well do the job.

[RaviRajhulk]

open(COMMON,"c:/perl/common.txt") or die $!;
 
open(IMAGE,">c:/perl/image.txt") or die $!;
 
open(HTML,">c:/perl/html.txt") or die $!;
 
my @commonFile=<COMMON>;
 
print IMAGE grep(/\.(jpg|bmp)$/,@commonFile);
 
print HTML grep(/\.(xml|html)$/,@commonFile);

Hopes it help

Regards
Rajiv

This is not working.help plz

[rajiv07]

This is not working.help plz

Its working fine for me.Have u getting any error.

[nithinpes]

This is not working.help plz

If so, provide a sample of contents in commonfilelist.txt .

This may also happen if your filelist has some other data along with filename in each line or spaces inserted at the end of each line. In such cases, modify those two lines to:

print IMAGE grep(/\.(jpg|bmp)/,@commonFile);
 
print HTML grep(/\.(xml|html)/,@commonFile);
 

Just removed end of line($) in pattern.

[eWish]

This is not working.help plz

Please be more descriptive of your problem. We will need more information to be able to offer assistance. In the future posts such as this will be deleted.

Moderator

[RaviRajhulk]

If so, provide a sample of contents in commonfilelist.txt .

This may also happen if your filelist has some other data along with filename in each line or spaces inserted at the end of each line. In such cases, modify those two lines to:

print IMAGE grep(/\.(jpg|bmp)/,@commonFile);
 
print HTML grep(/\.(xml|html)/,@commonFile);
 

Just removed end of line($) in pattern.

After executing the code ,the Appfile and webfile are created but they remain empty.The data in the common file are
a.html
b.html
falls.html
html\test.html
templatedata\category4
templatedata\Library
templatedata\Nik
templatedata\Page
templatedata\poc
templatedata\zz_tst_sakina_munshi_1_manifest
Test1.html
folwer.jpg
I need to write the html file to appfile and the image file to webfile,rest i need to neglect

[nithinpes]

After executing the code ,the Appfile and webfile are created but they remain empty.The data in the common file are
a.html
b.html
falls.html
html\test.html
templatedata\category4
templatedata\Library
templatedata\Nik
templatedata\Page
templatedata\poc
templatedata\zz_tst_sakina_munshi_1_manifest
Test1.html
folwer.jpg
I need to write the html file to appfile and the image file to webfile,rest i need to neglect

For this data, the script worked perfectly fine for me!! Don't know what is happening with you. Did you try the other method that was posted?
If that doesn't work, post the most recent code that you used.

[kalyanrajsista]

Please check my comments and code wrapped in code tags..

[kalyanrajsista]

I've tested the following code on unix box with the sample data provided in common.txt and found to be working fine.

#!/usr/bin/perl -w
 
use strict;
 
open (COMMON,"common.txt") or die $!;
open (IMAGE,">image.txt") or die $!;
open (HTML,">html.txt") or die $!;
my @commonFile = <COMMON>;
print IMAGE grep(/\.(jpg|bmp)$/, @commonFile);
print HTML grep(/\.(xml|html)$/, @commonFile);
 

Please note that i've removed the path of the files for my convenience as they got created from where i ran my script.

Kalyan