|
|
|
|
|
Search for perl chomp.
Search results: perl : 2045, chomp : 13.
|
Results 1-4 of 4.
Search took 0.051 seconds
|
| 827643 documents in database |
- 1.
Bulk Filename Changes - Ubuntu Forums
[5.023% Popularity: 0.00000]
-
|
... that will probably work better. The rename command appears like it should do what you want using a perl expression but I don't have much experience with perl unfortunately. Try the man page: Code: man ... a syntax perspective, I think this would work: Code: find PATH/TO/UPPERMOST/DIRECTORY/SEARCHED/ | perl -ne'chomp; next unless -e; $oldname = $_; s/cover.jpg/folder.jpg/; next if -e; rename $oldname, ...
|
|
|
- 2.
Logitech G15 drivers? - Page 3 - Ubuntu Forums
[0.941% Popularity: 0.00000]
-
|
... my %trackInfo; for ( my $iCounter = 0; $iCounter < @trackProperties; $iCounter++ ) { chomp($trackProperties[$iCounter]); $trackInfo{$trackProperties[$iCounter]} = `dcop juk Player trackProperty $trackProperties[$iCounter]`; chomp($trackInfo{$trackProperties[$iCounter]}); } $trackInfo{'NowPlaying'} = "$trackInfo{'Artist'} - ... ) { my @raw = `mocp --info`; my @data; for ( my $iCounter = 0; $iCounter < @raw; $iCounter++ ) { chomp($raw[$iCounter]); my @field = split(/: /,$raw[$iCounter]); $data[$iCounter] = $field[1]; } my ... 2005-12-09 13:11, requires mpc if ( $player eq 'mpd' ) { $display = `mpc status | head -n 1`; chomp($display); } # rhythmbox support added 2006-03-22 01:40 in Python, wrapped in Perl as of ... 01:06 if ( $player eq 'rhythmbox' ) { $display = `python /home/siliconviper/bin/lib/rhythmbox.py`; chomp ($display); } # xmms support added 2005-06-06 13:27, requires xmms-info plugin if ( $player eq ...
|
|
|
- 3.
Feisty Deprecated Package Woes - Ubuntu Forums
[0.384% Popularity: 0.00000]
-
|
... in the list up to line 209 do actually exist as regular files. Here's the script: Code: #!/usr/bin/perl -w use strict; my $file = '/var/lib/dpkg/info/language-pack-gnome-en-base.list'; my $i = 0; my @lines; open FILE, "< $file" or die "Can't open $file : $!"; while ( <FILE> ) { $i++; chomp; push @lines, $_; last if $i==209; } close FILE; foreach (\@lines) { next unless -f; next if -e; # ...
|
|
|
- 4.
Synaptics touchpad - Ubuntu Forums
[0.274% Popularity: 0.00000]
-
|
... :: ----------------------------Cut Here----------------------------------------- #!/usr/bin/perl -w use strict; my $MOUSENAME = "PS/2 Generic Mouse"; my $LINKNAME = "TouchPad"; print "Finding ... = (); open DEVICES, "/proc/bus/input/devices" or die "cannot read device list"; while(<DEVICES>) { chomp; if(/^([A-Z]): (.*)/) { $dev{$1} = $2; } else { checkDevice(); %dev = (); next; checkDevice(); sub ...
|
|
|
Result pages: | | | << Prev |
1 |
Next >> |
|
|
|
|
Page generated in 0.204 seconds.