Leser: 8
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/env perl use warnings; use 5.10.0; use open qw(:std :utf8); use Term::Choose::Util 0.134; # Eins my $new = Term::Choose::Util->new(); my $chosen_directory = $new->choose_a_directory(); say $chosen_directory if defined $chosen_directory; my $chosen_file = $new->choose_a_file(); say $chosen_file if defined $chosen_file; say "=" x 50; # Zwei $new = Term::Choose::Util->new( { prompt => '' } ); $chosen_directory = $new->choose_a_directory(); say $chosen_directory if defined $chosen_directory; $chosen_file = $new->choose_a_file(); say $chosen_file if defined $chosen_file;
1 2 3
Directory: /me/home/ Choose: <<, OK, ........., .............., ................., ..........., ...
1 2
Directory: /me/home/ <<, OK, ........., .............., ................., ..........., ...
1
2
3
4
5
6
7
8
9
10
Chosen Dirs: /home/mm/.cache, /home/mm/.config, /home/mm/.cpan, /home/mm/.fonts, /home/mm/.gnome, /home/mm/.gnupg, /home/mm/.gphoto,
/home/mm/.kde4, /home/mm/.local, /home/mm/.logrotate, /home/mm/.mozilla, /home/mm/.perl, /home/mm/.rakubrew, /home/mm/.y2control,
/home/mm/.zef, /home/mm/Bilder, /home/mm/DB, /home/mm/Desktop, /home/mm/Dokumente, /home/mm/Downloads, /home/mm/Musik,
/home/mm/Schreibtisch, /home/mm/Videos, /home/mm/Vorlagen, /home/mm/bin, /home/mm/config, /home/mm/lib, /home/mm/public_html,
/home/mm/Öffentlich
Location: /home/mm
BACK
CONFIRM
- Change Location
- Add Directories
1
2
3
4
5
6
7
8
9
10
Chosen Dirs: /home/mm/.cache, /home/mm/.config, /home/mm/.cpan, /home/mm/.fonts, /home/mm/.gnome, /home/mm/.gnupg, /home/mm/.gphoto,
/home/mm/.kde4, /home/mm/.local, /home/mm/.logrotate, /home/mm/.mozilla, /home/mm/.perl, /home/mm/.rakubrew, /home/mm/.y2control,
/home/mm/.zef, /home/mm/Bilder, /home/mm/DB, /home/mm/Desktop, /home/mm/Dokumente, /home/mm/Downloads, /home/mm/Musik,
/home/mm/Schreibtisch, /home/mm/Videos, /home/mm/Vorlagen, /home/mm/bin, /home/mm/config, /home/mm/lib, /home/mm/public_html,
/home/mm/Öffentlich
Location: /home/mm
BACK
CONFIRM
- Change Location
- Add Directories