Автор Тема: $x=<DATA>  (Прочитано 2966 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Mog.

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 828
  • +0/-0
  • 0
    • Просмотр профиля
$x=<DATA>
« : 18 Мая 2004, 11:12:19 »
Видел как то скрипт, примерно такой

...
...
while (
$x = <DATA>) {
	
$x =~ s/\\r|\\n//g;
	
while (
$x) {
	
	
$S .= chr(hex(substr($x,0,2)));
	
	
$x substr($x,2);
	
	
}
	
}
eval(
$S);
...
...
__END__
247c3d313b757365207374726963743b757365204347492071772820706172616d20293b6d792840
616e6b6574612c202466726f6d2c20247375626a656374293b266765745f646174613b6d79202473
...
...

Интересует, конкретно, чтение из , а точнее как эта ассемблеровщина по научному называется и где почитать об этом можно?
Все болезни от нервов, только сифилис от удовольствия

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
$x=<DATA>
« Ответ #1 : 18 Мая 2004, 13:23:40 »
Читать perldoc perldata после Scalar value constructors
2B OR NOT 2B = FF

Оффлайн Mog.

  • Фанат форума
  • Ветеран
  • *****
  • Сообщений: 828
  • +0/-0
  • 0
    • Просмотр профиля
$x=<DATA>
« Ответ #2 : 18 Мая 2004, 16:37:54 »
Спасибо
Все болезни от нервов, только сифилис от удовольствия

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28