/ Forside / Teknologi / Operativsystemer / Linux / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Linux
#NavnPoint
o.v.n. 11177
peque 7911
dk 4814
e.c 2359
Uranus 1334
emesen 1334
stone47 1307
linuxrules 1214
Octon 1100
10  BjarneD 875
Perl problemer.
Fra : Stefan Bruhn


Dato : 21-09-02 11:13

Jeg skal køre et lille perl script som laver thumbnails til nogen
billeder:

bruhn-tk:/home/ghashul# ./gallery.pl /sti/til/billede
: bad interpreter: No such file or directory

Hmm mærkeligt... Mit lille testscript virker udemærket så det er vel
ikke PERL der er helt gal, eller?

#!/usr/bin/perl
print "test\n";

gallery.pl ser således ud:

#!/usr/bin/perl

# thumbnail, (c) 2001 Darxus@ChaosReigns.com, released under the GPL.
# http://www.ChaosReigns.com/code/thumbnail/

$pixelcount = 22500;

for $file (@ARGV)
{
@fullpath = reverse(split(/\//,$file));
$fullpath[0] = "../thumbs/tn_".$fullpath[0];
$newfile = join('/',reverse(@fullpath));
print "$newfile\n";
$info = `identify $file`;
if ($info =~ m#[^ ]+ (\d+)x(\d+)#)
{
    $x = $1;
    $y = $2;
} else {
    print "Failed to parse info:$info\n";
}
#print "info:$info\n";
$pixels = $x * $y;
$newx = int($x / (sqrt($x * $y) / sqrt($pixelcount)));
$newy = int($y / (sqrt($x * $y) / sqrt($pixelcount)));
$newpix = $newx * $newy;
print("${x}x$y=$pixels -> ${newx}x$newy=$newpix\n");
#print "convert -geometry ${newx}x$newy $file $newfile\n";
#print "convert -geometry \"${newx}x${newy}\>\" $file $newfile";
`convert -geometry \"${newx}x${newy}\>\" $file $newfile`;
}

--
Regards Stefan
Websites: http://3x7.dk/ http://ghashul.dk/
For e-mail replace "spamfilter" with my first name.

 
 
Rasmus Bøg Hansen (21-09-2002)
Kommentar
Fra : Rasmus Bøg Hansen


Dato : 21-09-02 11:18

Stefan Bruhn wrote:

> bruhn-tk:/home/ghashul# ./gallery.pl /sti/til/billede
> : bad interpreter: No such file or directory

> #!/usr/bin/perl

Kontroller at du ikke har ^M eller tilsvarende ikke-skrivbare tegn sidst på
linjen - det ses svjh f. eks. ofte med scripts lavet i DOS/Windows.

/Rasmus

--
-- [ Rasmus "Møffe" Bøg Hansen ] ---------------------------------------
He who asks a question is a fool for five minutes; he who does not ask a
question remains a fool forever.
----------------------------------[ moffe at amagerkollegiet dot dk ] --

Kim Hansen (21-09-2002)
Kommentar
Fra : Kim Hansen


Dato : 21-09-02 11:20

Stefan Bruhn <spamfilter@bruhn.tk> writes:

> Jeg skal køre et lille perl script som laver thumbnails til nogen
> billeder:
>
> bruhn-tk:/home/ghashul# ./gallery.pl /sti/til/billede
> : bad interpreter: No such file or directory

Der er typisk DOS-linjeskift der giver denne fejl.

Præv at rette programmet med:
perl -pi -e'tr/\r//d' gallery.pl

--
Kim Hansen | |\ _,,,---,,_ | Det er ikke
Dalslandsgade 8, A708 | /,`.-'`' -. ;-;;,_ | Jeopardy.
2300 København S | |,4- ) )-,_. ,\ ( `'-' | Svar _efter_
Phone: 32 88 60 86 | '---''(_/--' `-'\_) | spørgsmålet.

Stefan Bruhn (21-09-2002)
Kommentar
Fra : Stefan Bruhn


Dato : 21-09-02 11:26

On 21 Sep 2002 12:19:37 +0200, Kim Hansen <k-tahf.qvxh@oek.dk> wrote:

>Der er typisk DOS-linjeskift der giver denne fejl.
>
>Præv at rette programmet med:
> perl -pi -e'tr/\r//d' gallery.pl

Tak til jer begge to! Scriptet er skrevet på linux men har rundet en tur
på min Windows maskine... Nu virker det :)

--
Regards Stefan
Websites: http://3x7.dk/ http://ghashul.dk/
For e-mail replace "spamfilter" with my first name.

Thorbjoern Ravn Ande~ (21-09-2002)
Kommentar
Fra : Thorbjoern Ravn Ande~


Dato : 21-09-02 13:27

Stefan Bruhn <spamfilter@bruhn.tk> writes:

> bruhn-tk:/home/ghashul# ./gallery.pl /sti/til/billede

Hvad sker der med "perl gallery.pl osv"?

--
Thorbjørn Ravn Andersen
http://unixsnedkeren.dk - Unix, Java, Web, Netværk, Århus

Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408877
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste