|
ru.unix.bsd- RU.UNIX.BSD ------------------------------------------------------------------ From : Kirill Frolov 2:5030/827.2 07 Dec 2003 01:02:32 To : Vladimir Shishkov Subject : Re: как одной командой поменять расширениЯ, например,с txt на xtx? (-) -------------------------------------------------------------------------------- Hемедленно нажми на RESET, Vladimir Shishkov! On Wed, 03 Dec 03 11:57:57 +0300, Vladimir Shishkov wrote: > как одной командой поменять расширениЯ, например,с txt на xtx? (-) Для этого есть перловый rename ((C) Robin Barker): #!/usr/bin/perl -w use strict; use Getopt::Long; $Getopt::Long::ignorecase = 0; my($verbose, $op, $bad_args); GetOptions('-v' => \$verbose) or $bad_args = 1; $op = shift or $bad_args = 1; die "Usage: rename [-v] perlexpr [filenames]\n" if $bad_args; if (!@ARGV) { print "reading filenames from STDIN\n" if $verbose; @ARGV = <STDIN>; chop(@ARGV); } for (@ARGV) { my $was = $_; eval $op; die $@ if $@; if( $was eq $_ ) { } # ignore quietly elsif( -e $_ ) { warn "$was not renamed: $_ already exists\n"; } elsif( rename($was,$_)) { print "$was renamed as $_\n" if $verbose; } else { warn "Can't rename $was $_: $!\n"; } } --- [ZX] * Origin: Registered Linux User #204355 (2:5030/827.2) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.unix.bsd/38337ccfebd2.html, оценка из 5, голосов 10
|