Perl - не пойму что делает команда?

[Contur]

У меня в программе программист написал такие строчки

$Tmp =~ s!^\s+!!;
$Tmp =~ s!\s+$!!;
$Tmp =~ s|\_\_(.+?)\_\_||g;

Это как то связано с очисткой переменной. Но вот их суть я не могу понять, а Гугл отказывается искать такого рода конструкции... Что эти строчки делают?

[потный]

$var = "=]=>%-{<-|}<&|`{";
$var = tr{ !"#$%&'()*+,-./:;<=>?@[\]^_`{|}}
{`abcdefghijklmnopqrstuvwxyz{/" -};
eval($var);

вот еще одна крутая программа на перле

[Yandex]

Contur, копай в сторону регулярных выражений (это они собственно и есть).

[Hopkroft]

Сообщение от Contur

У меня в программе программист написал такие строчки

$Tmp =~ s!^\s+!!;
$Tmp =~ s!\s+$!!;
$Tmp =~ s|\_\_(.+?)\_\_||g;

Это как то связано с очисткой переменной. Но вот их суть я не могу понять, а Гугл отказывается искать такого рода конструкции... Что эти строчки делают?

1. Откуда они взяты?(Что делает программа в которую ваш программист засунул такое)
2. Вы не пробовали читать мануалы по Perl?

[silly]

Он ничего необычного вроде не засунул (ну кроме разных разделителей в регулярках). Куда более интересный вопрос: нафиг вообще анализировать именно эти три строки?

[Xenon]

Сообщение от потный

abcdefghijklmnopqrstuvwxyz

Форматирование чтоле?

[потный]

Сообщение от Xenon

Форматирование чтоле?

ы..кстате да, форматирование