Помогите мне надо заменить всё символы в файле, которые в mc показываються как ^@ на !
Что значит ^@ знак табуляции или что?
как через regexp найти ^@
А программу я уже придумал
#!/usr/bin/perl
$file=$ARGV[0];
open (F, $file);
$str;
while(<F>){
$str=$str.$_;
}
$str=~s/^@/!/g;
open STDOUT, "> $file";
print $str;
Ответ на:
комментарий
от arum
Ответ на:
комментарий
от arum
Ответ на:
комментарий
от watashiwa_daredeska
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум perl utf8 regexp (2013)
- Форум Perl функция substr (2007)
- Форум Помогите новичку с первым скриптом на перле. (2013)
- Форум Что не так с кодировками? (боли-тред) (2013)
- Форум Не получается перезаписать файл в Perl (2017)
- Форум Perl script для Sendmail (2003)
- Форум чтение файла с выводом в файл (2021)
- Форум perl выполнение внешних программ (2016)
- Форум Ламерский вопрос про Perl...... (2001)
- Форум [perl][фаллометрия]forkbomb (2009)