Замена расширения

@LifeSmile · Регистрация: 29.07.2013

Author24 — интернет-сервис помощи студентам

Помогите написать скрипт который заменяет все файлы с расширением .mtx в заданной директории на файлы с расширением .txt.

@petrovish1981 · 18.12.2013, 00:42

Perl

#!/usr/bin/perl -w
  use strict;
 my $dir = "/home/user/scripts/rename";  # путь к директории
opendir(DIR, "$dir");
my @file= readdir(DIR);
closedir(DIR);
for( @file )
{ if( $_=~/(.*)\.mtx$/ ){ rename("$dir/$_", "$dir/$1.txt") or warn "Couldn't rename $_: $!\n"; print "$dir/$_ -> $dir/$1.txt\n" } }

@LifeSmile 0 / 0 / 0 Регистрация: 29.07.2013 Сообщений: 15
		1
	Замена расширения 17.12.2013, 23:11. Показов 890. Ответов 1 Метки нет (Все метки) Помогите написать скрипт который заменяет все файлы с расширением .mtx в заданной директории на файлы с расширением .txt. 0

	18.12.2013, 00:42

Опции темы