Простой вопрос по reg ex

#!/usr/bin/perl -w

use strict;

open my $fd, "inf.txt"  or die "open(inf.txt): $!\n";
for (<$fd>)
{
    s/hello//;
    print unless /^$/;
}

Ой...

perl -wne 's/hello//g; print unless /^$/' < inf.txt

зачем делать руками то, что уже сделано?

У меня другая проблема - я использую Tie::File и там так нельзя!
Можно ли реализовать мою проблему средствами регулярных выражений?

> зачем делать руками то, что уже сделано?

Ну IMHO подразумевалось, что в цикле содержится намного
больше, чем просто s/hello//. В таком случае one-liner
становится неудобным.

BTW, '< inf.txt' лишнее, достаточно передать inf.txt как аргумент
командной строки.

> У меня другая проблема - я использую Tie::File и там так нельзя!
> Можно ли реализовать мою проблему средствами регулярных выражений?
>

Это у тебя уже следующий вопрос?
Что-то в твоем коде никакого File::Tie не видно :-/
Давай тогда код.

foreach ( <FD> )
{
  print if s/hello//;
}

2aton:

> foreach ( <FD> )
> {
>   print if s/hello//;
> }
>

Ну и зачем человека в заблуждение вводить?
Может проверим?

$ cat inf.txt
qqq
hello
qqq
hello
p
$ perl -n -e 'print if s/hello//' < inf.txt
 
 
$

Вот и весь твой вывод :-(

sorry :) Клнечно же

foreach(<FD>)
{
  print unless s/hello//;
}

s/hello\s*$//;