Script to search and replace in text file - kinda...

jeffreybluml · 11-02-2004, 02:27 PM

Tink.....

YOU ARE MY HERO!!!!!!!!

I did:

perl pagemaker.pl

and poof, there's my webpage!! Damn that was COOL.

Thank you, thank you, thank you.

I will TRY to affero you as soon as I can make a donation, I'm a broke dad with a single-income...

Thou art a good person. Thank you.

Tinkster · 11-02-2004, 03:10 PM

Heh :)

No worries. And money isn't really required,
even though I like the idea that I'm supporting
GNU and LQ via affero.

A non-financial affero is appreciated, too ...

Did you actually chmod u+x the script? I find
it weird that perl <script> works, but <script>
doesn't.

Cheers,
Tink

jeffreybluml · 11-02-2004, 03:33 PM

yep, I has chmod a+x prior to tryingt it. Whatever though, I'm just glad it worked!

Thanks again,

homey · 11-02-2004, 08:52 PM

That is a pretty sweet program Tinkster!

I hope you don't mind, I modified it a little so it would be more generic.

# I have it setup to use row of 4 pics, either
# jpg or gif, so make sure to have a number of
# pics that is divisible by 4.
If there aren't any pics of one type or the other, you will see an error message to the effect there are no files of that type found. But it still proceeds.

# I redirect the output to index.html
# perl images.pl > index.html

Code:

#!/usr/bin/perl 
# not a perl-expert - I'm sure there's more elegant solutions :)
use strict; # enforce variable declarations and quoting

my $i;
my $j;
my $new_row = 0;
my @name=sort(`ls *.jpg *.gif`) ;
my $name1;
my $name2;

if ( (scalar @name)%4 !=0) {
    print "Wrong number of pics in directory, quitting!\n";
    exit;
}

# kudos to David_ross for suggesting the use of here-documents
print <<HEADER_EOF;
<!-- \/ starthtml -->
<html>
<head>

<style TYPE="text/css">
<!--
a:link {color:#993366;}
a:visited {color:#666666;}
a:hover {color:#FF99CC;}
--> </STYLE>

<title></title>
</head>

<body bgcolor="#1B98C2" text="#000000" link="#0000EE" vlink="#551A8B">


<table width="900" border="4" cellpadding="0" cellspacing="0" bordercolorlight="#FF99CC" bordercolordark="#993366" background="#1B98C2" bgproperties="center">

<table width="900" border="0" cellpadding="0" cellspacing="0">
HEADER_EOF

for(  $i=0; $i < (scalar @name) ; $i=$i+4){
    print "<tr height=\"270\">\n";
    for( $j=0; $j<4 ; $j++){
        chomp( $name[$i+$j] );
        $name1 = $name[$i+$j];
        $name2 = $name[$i+$j];
        $name2 =~ s/\./\.THUMB\./;
        system(`convert -size 20% $name1 -resize 20% $name2`);
        print "<td width=\"240\"><center><a href=\"$name1\"><img src=\"$name2\"></a></td>\n";
    }
    print "</tr>\n";
}


print <<FOOTER_EOF;
</table>
</td></tr></table>

</body>
</html>
FOOTER_EOF

note to self: I must learn perl

Tinkster · 11-02-2004, 10:01 PM

Quote:

That is a pretty sweet program Tinkster!

I hope you don't mind, I modified it a little so it would be more generic.

Heh,

thanks for the feedback, but it's actually totally trivial :)

And I just popped in and did this for Jeff to
force myself and use more perl ;)

As for the modifications: I don't think that this
script is particularly original and don't have any
claims towards the source, consider it GNU General
public licensed :D

Cheers,
Tink

homey · 11-03-2004, 03:20 PM

Thanks Tinkster,

I've been putzing with this program and I'm not sure how to proceed with this in perl.
When I make an image gallery in konqueror, it makes a thumbs directory, converts the thumbs to png which looks like mypic.png , then it dumps them into the thumbs directory. I can get the thumbs over there ok but it ends up being something like mypic_THUMB.pnggif or mypic_THUMB.pngjpg . Having the thumbs as png is kinda handy because you don't have gif images bouncing all over the html page.

Any ideas?

Code:

#!/usr/bin/perl
# use the command: perl images.pl > index.html
# Set up in rows of 4 pics so you need an amount
# of pics that is evenly divided by 4


use strict; # enforce variable declarations and quoting

mkdir "thumbs", 0777 unless -d "thumbs";

my $i;
my $j;
my $new_row = 0;
my @name=sort(`ls *.jpg *.gif *.png`) ;
my $name1;
my $name2;

if ( (scalar @name)%4 !=0) {
   print "Wrong number of pics in directory, quitting!\n";
   exit;
}

print <<HEADER_EOF;
<!-- \/ starthtml -->
<html>
<head>

<style TYPE="text/css">
<!--
a:link {color:#FFFFFF;}
a:visited {color:#666666;}
a:hover {color:#1B98C2;}
--> </STYLE>

<title></title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF">


<table align=\"center\" border="1" cellpadding="5" cellspacing="2" bordercolorlight="#FF0000" bordercolordark="#993366" background="#1B98C2" bgproperties="center">

<table align=\"center\" width=\"80%\" border="1" cellpadding="5" cellspacing="2">
HEADER_EOF

for($i=0; $i < (scalar @name) ; $i=$i+4){
    print "<tr height=\"150\">\n";
    for( $j=0; $j<4 ; $j++){
        chomp( $name[$i+$j] );
        $name1 = $name[$i+$j];
        $name2 = $name[$i+$j];
	$name2 =~ s/\./_THUMB\./;
        system(`convert -geometry x70 $name1 $name2`);
	system(`mv $name2 ./thumbs/`);
        print "<td width=\"120\"><center><a href=\"$name1\"><img src=\"./thumbs/$name2\"></a><div>$name1</div></td>\n";

    }
    print "</tr>\n";
}


print <<FOOTER_EOF;
</table>
</td></tr></table>

</body>
</html>
FOOTER_EOF

Tinkster · 11-03-2004, 04:19 PM

Have a closer look at that:

$name2 =~ s/\./_THUMB\.png/;

I'm almost certain that's where the odd names come
from in your case ;) ... specially if you re-run the script.

just do a
print "before: $name1 after: $name2 \n";
behind that statement and see ...

Cheers,
Tink

homey · 11-03-2004, 04:37 PM

$name2 =~ s/\./_THUMB\.png/;

That was originally $name2 =~ s/\./_THUMB\./;
this works fine with the name of mypic_THUMB.jpg or mypic_THUMB.gif
but I was kinda hoping to get the files converted to png like konqueror does.

Tinkster · 11-03-2004, 04:57 PM

Ummm ... convert here handles conversions from
jpg to png just dandy. The problem IS your regex.

Try this:

$name2 =~ s/\.jpg/SMALL\.png/;

Cheers,
Tink

homey · 11-03-2004, 05:11 PM

The problem comes from my trying to have mixed files like jpg and gif in the same directory.
$name2 =~ s/\.jpg/SMALL\.png/;
and
$name2 =~ s/\.jpg/_THUMB\.png/;

both work if you only want to do jpg files. When I use the Image gallery feature of konqueror, it converts both gif and jpg files to png and puts them in the thumbs directory.

That's why I had it like this...
$name2 =~ s/\./SMALL\.png/;
or
$name2 =~ s/\./_THUMB\.png/;

So, I wonder how to get around that problem.

Tinkster · 11-03-2004, 05:23 PM

$name2 =~ s/(\.jpg|\.gif)/_THUMB\.png/;

homey · 11-03-2004, 05:53 PM

That converted the jpg files ok but it really got hung up on the gif file. The gif didn't go into the thumbs directory and it did put a bunch of stuff in the images directory.
I put a smaller amount of files in the images directory for testing purposes.

Here's what the images directory gets to look like.
bday3.gif
billbig.gif
bombsquad.jpg
bus.gif
bus_THUMB.png.0
bus_THUMB.png.1
bus_THUMB.png.2
bus_THUMB.png.3
bus_THUMB.png.4
bus_THUMB.png.5
bus_THUMB.png.6
bus_THUMB.png.7
cat1.jpg
cat6.jpg
images.pl
index.html
thumbs

Tinkster · 11-03-2004, 06:01 PM

That's because bus.gif would be an animated
gif which there is no representation for in png?

Consequently the processed files won't be mv'ed
because their name isn't $name2, but $name2.n
as in the sequence-number of the pics in the gif.

C'mon mate, start doing your work ;) and think
about these things ...

Cheers,
Tink

homey · 11-03-2004, 06:14 PM

Ok so I'm stupid but I wonder how konqueror does it with gifs.

Tinkster · 11-03-2004, 06:50 PM

I didn't say you're stupid ... ;)

But I need to think about these things, too, I'm a
sysadmin, not a graphics or web-designer ... try
to use "convert -combine" (yes, I had to read the
man-page and experiment for ~ 20 minutes for
this piece of info) ... depending on the type of
animated gif the result may be unsightly (I've only
downloaded and converted ONE).

As for the Konqueror wondering:
a) read the source
or
b) ask on their developer list

Cheers,
Tink