Opened by Uwe F. at 2018-01-02 11:38
Danke für die schnelle Antwort. Verwendung von <STDIN> ändert leider nichts am Problem. Aber mit "readline" klappt es.
Sehr cool. Mit
kriege ich jetzt das gewünschte Verhalten.
Aufruf und Ausgabe:
Besten Dank!
Last edited: 2018-01-02 15:14:08 +0100 (CET)
Sehr cool. Mit
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
24
25
26
#!/usr/bin/perl
use warnings;
use strict;
use Term::ReadLine;
my $term = Term::ReadLine->new('Eingabe');
my $prompt = "Umbenennen? j/n [n] ";
## read filenames
while(<>){
chomp;
my $file = "$_";
print "Datei \"$file\"...\n";
system("eog $file");
my $res = $term->readline($prompt);
if ( $res eq "j" ){
print "ok\n";
}
elsif ( $res eq "q" ){
last;
}
}
kriege ich jetzt das gewünschte Verhalten.
Aufruf und Ausgabe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
> ls -1 *.png | head -3 | ./bilder.pl
Datei "Auswahl_004.png"...
Umbenennen? j/n [n] j
ok
Datei "Auswahl_005.png"...
Umbenennen? j/n [n] n
Datei "Auswahl_006.png"...
Umbenennen? j/n [n] j
ok
Besten Dank!
Last edited: 2018-01-02 15:14:08 +0100 (CET)