ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Tulyuk                         2:5020/400     12 Jul 2001  13:39:30
 To : All
 Subject : $!
 -------------------------------------------------------------------------------- 
 

 Есть скрипт имени unix power tools:
 #!/usr/bin/perl
 
 # Usage: rename perlexpr [files]
 
 ($op = shift) || die "Usage: rename perlexpr [filenames]\n";
 if (!@ARGV) {
     @ARGV = <STDIN>;
     chop(@ARGV);
 }
 for (@ARGV) {
     $was = $_;
     eval $op;
     die $@ if $@;
     rename($was,$_) unless $was eq $_;
 }
 
 Все в нем хорошо, но не выводит ошибок :(
 Решил дописать:
 ...
     die $@ if $@;
     rename($was,$_) unless $was eq $_;
     die "rename: $was: $^E" if $!;
 }
 
 но в сообщении пишет:
 rename: /kernel: Permission denied at /home/mt/bin/rename line 15.
                                   ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 Q: как убрать подчеркнутое?
 
 --- ifmail v.2.15dev5
  * Origin: Unknown (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    $!   Maxim Tulyuk   12 Jul 2001 13:39:30   Re: $!   HB   12 Jul 2001 15:02:58