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

Linuxer
 2014-03-25 09:54
#174401 #174401
User since
2006-01-27
3890 Artikel
HausmeisterIn

user image
2014-03-25T08:45:11 kezall
Hallo Perles,

kann mir jemand diese Bashzeilen in Perl umsetzen?
Code: (dl )
1
2
3
4
  for i in $(ls *.png) ; do 
    ${PrgDir}/convert "$i" "${i%.png}.tif" ; let Anz++
  done
  ls -m *.png

Danke.


Vorschlag, ungetestet:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

# PrgDir als Umgebungsvariable verwenden; Ansonsten als Perl-Variable definieren und verwenden
my $cmd = "$ENV{PrgDir}/convert";

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>;
}


edit: fixed missing $ for: $ENV{PrgDir}
Last edited: 2014-03-25 13:05:22 +0100 (CET)
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