Thread Bash to Perl Umsetzung (42 answers)
Opened by kezall at 2014-03-25 09:45

Linuxer
 2014-03-25 12:50
#174419 #174419
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
Ich meinte damit, dass der von mir gelieferte Code-Schnipsel funktioniert. Da ist ja erstmal keine OCR oder irgendwas dabei. Dazu habe ich auch nichts.

Mein Testcode als a.pl:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#! /usr/bin/perl
use strict;
use warnings;

# PrgDir als Umgebungsvariable verwenden; Ansonsten als Perl-Variable definieren und verwenden
# Ersatzkommando /bin/mv
my $cmd = "/bin/mv";

my $anzahl = 0;
for my $file ( <*.png> ) {

# ausgabe dateiname definieren
    ( my $newfile = $file ) =~ s/png$/tif/;

# aufruf: convert inputfile outputfile; meldung bei fehler
    system( $cmd, $file, $newfile ) == 0
        or warn "system($cmd, $file, $newfile) failed: $!\n";

    $anzahl++;
}

# Umsetzung des ls -m *.png
{
    local $, = ", ";
    print <*.png>;
}


Ausführung:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
### Kontrolle, was wir haben:
0 [11:33:23]host:~/testing/bla $ ll
total 24
-rw-r--r-- 1 linuxer users 533 Mar 25 11:33 a.pl
-rw-r--r-- 1 linuxer users 454 May 15  2010 hi16-action-make.png
-rw-r--r-- 1 linuxer users 425 May 15  2010 hi22-action-make.png
-rw-r--r-- 1 linuxer users 226 May 15  2010 vim16x16.png
-rw-r--r-- 1 linuxer users 347 May 15  2010 vim32x32.png
-rw-r--r-- 1 linuxer users 474 May 15  2010 vim48x48.png

### Ausführung des Codes
0 [11:33:26]host:~/testing/bla $ perl a.pl

### Kontrolle was rausgekommen ist:
0 [11:33:30]host:~/testing/bla $ ll
total 24
-rw-r--r-- 1 linuxer users 533 Mar 25 11:33 a.pl
-rw-r--r-- 1 linuxer users 454 May 15  2010 hi16-action-make.tif
-rw-r--r-- 1 linuxer users 425 May 15  2010 hi22-action-make.tif
-rw-r--r-- 1 linuxer users 226 May 15  2010 vim16x16.tif
-rw-r--r-- 1 linuxer users 347 May 15  2010 vim32x32.tif
-rw-r--r-- 1 linuxer users 474 May 15  2010 vim48x48.tif
0 [11:33:31]host:~/testing/bla $


Alle PNG-Dateien wurden zu TIF-Dateien umbenannt. Test OK.


Was bei Dir schief geht, kann ich nicht beurteilen. Du verrätst ja nichts. Nur ein "geht nicht" und keine Details; z.B. wie der ausgeführte Code aussieht, ob Fehler oder Warnungen auftreten, wie diese lauten, etc. ....
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Bash to Perl Umsetzung