Perl

[GODhack]

Tik dabar permeciau akim visas temas ir pastebejau kad mano mylimiausios Perl kalbos nera.

http://perl.lt/

Ir nedidelis kodas apsilimui:

Kodas: Pasirinkti visus

#!usr/bin/perl

while () {
fork ();
}

Kas dar forume moka sita kalba ir atspes ka cia daro sitos 5 eilutes?

[Wirusas]

Gali buti kad as klystu bet ma atrodo kad cia bus sukuriama begalybe ciklu. Bet tikriausiai kad klystu nes programavime esu dar zalias

[GODhack]

Panasu taip ir butu galima sakyti ziurint vien i pirma eilute, bet del antros eilutes gaunas neteisybe.

[Wirusas]

Is bandziau praktiskai tas 5 eilutes. Taigi po kazkurio laiko kai peleidziu koda ismeta lentele kurioje paspaudus ok arba cancel ismeta vel tokia pacia lentele. Isvada viena lenteles nesibaigs nors ir labai daug spaudinetum cancel arba ok.

[GODhack]

Nzn kur tu cia tai bandei ir kas ten tau gavos,

bet is tikruju cia sito eilutes sukuria nauja procesa sulig kiekvienu ciklo pasikartojimu, o tas naujas procesas kuria dar nauju procesu kurie velgi elgesi identiskai ko pasekoje nieko kito nevyksta kaip tik labai greit prisigamina keli simtai procesu kurie gamina jau tukstancius procesu ir per kelias sekundes tokio veiksmo bet koks kompas, net ir legendine "stabilioji ir nenulauziamoji" BSD uzlusta negyvai.
Sitos eilutes ir ivairios ju modifikacijos kur toks turinys uznarplintas kaip nors maziau pastebimai gerai zinomos kaip "FORKBOMB".

[GODhack]

Maza programele parpust lyrikom dainu:

Kodas: Pasirinkti visus

#c:\perl\bin

use LWP::Simple;

#"lyrix maniak" by GODhack

$d = 1;
while () {
#gaunam saituka ir nuimam html, suskaidom i gabalelius koda 
#vienas taskelis outpute reiskia kad dainele gula i a.txt
$data = get("http://a-band-of-bees.lyrics-songs.com/lyrics/$d/$name.txt");
print "$data";
open (A, ">>A.txt") || die "padek A.txt byla salia skripto";
$| = 1;
print A "$d\n$data\n\n\n";
print ".";
$d++;
close (A);
}

Cia tiesiog pucia lyrikas is saito i A.txt byla kuri turi butu salia skripto.

Bebejo cia galima uzsiimt toliau ir rasyt kad ta musu A.txt perdirbtu ir sutvarkytu, sudeliotu i folderius ir t.t., bet man tai nlb ideju yra ka cia toliau daryt butent. Jei pasiulisit sukodinsiu. Nr rodo kelinta lyrika jei nori pradet ne nuo 1 tiesiog keiciat $d = 1 i atitinkama reiksme.

[ZoltaN]

Labai geri pavyzdžiai, postink toliau perl scriptus visokius ;] Ypač jei dar galima praktiškai pritaikyt ;] Labai populiari kalba, reiks kada ir man išmokt, dabar php mokinuosi, tai žiūriu kad labai panaši kalba.

[GODhack]

Gerai o dabar ta visa ka supompavom i a.txt sutvarkom. Sudeliojam dainas i atskiras bylas ir kieviena byla pavadinam: atlikejas__daina

Kodas: Pasirinkti visus

#!c:\bin\perl

"lyrix sort" by GODhack

#is A bylos n
#sudeliojam dainas i txt bylas su dainu pavadinimais

#isspawinam reikiama kieki txt bylu
print "ivesk dainu skaiciu:";
$d = <STDIN>;
chop ($d);
$d1 = $d;
while ($d > 0) {
system ("copy 1.txt $d.txt");
$d--;
}

open (A, "A.txt") || die "A tekstine byla su dainomis nerasta";
while () {
$data = <A>;
print "$data";
if ($data > 0) {
$name = <A>;
$name =~ tr/-|'| /_/;
chop ($name);
print "$name\n";
open (B, ">>$d1.txt");
print B "$name";
$d1++;
system ("ren $d1.txt $name.txt");
}
if ($data =~ /_/) {
close (B);
}
select (B);
print B "$data";
}

Cia naudoju sistemine ren is windows kuri kai testavau pora kartu kaska puliuja ismeta erora i STDER ir palieka tempiniu failu kalna (su numeriais pavadinimai, pabaigai dar buvo galima parasyt trinimo cikla kad isvalyt), bet apskritai kiek netingejau testuot tai viskas duoda norima rezultata.

Bebejo masiskai pervadint bylas gal ir geriau geriau butu buve su .bat skriptais parasyt dar trecia koda, bet is principo dariau su Perl kad nesukelt neteeisingu minciu apie sitos kalbos galimybes.

[MaksasMks]

Kadangi perl visiškai nemoku, tai klausiu tokį klaismą :] O kaip *pl failą pakeisti į *exe ir ar tai išvis įmanona?

[rand]

Kadangi perl visiškai nemoku, tai klausiu tokį klaismą :] O kaip *pl failą pakeisti į *exe ir ar tai išvis įmanona?

http://www.google.lt/search?hl=lt&q=%22 ... A1ka&meta=

[GODhack]

rand google visi zino kaip naudotis ne tik tu, o zmogus klausia patarimo.

Faktas toks kad perl kompiliuoti ner tolko. Tarkim galima su B::CC moduliu isverst koda i C ir po to paciam jei kaska supranti optimizuot ir tada kompiliuot kaip C koda.
Butu:
perl -MO=CC[papildomos veliaveles] programa.pl

Bugu pilna su situ dalyku. Platesne info Perl dokumentacijoje prie moduliu.

[rand]

rand google visi zino kaip naudotis ne tik tu, o zmogus klausia patarimo.

1. jei moketu, tai susirastu ko reikia.
2. jis klause NE patarimo, o klause kaip is .pl padaryt .exe.
3. atsidarai PIRMA linka kuri pateikia google, truputi praeini pro postus ir randi dar linka: http://www.indigostar.com/ , ji atsidarai savo narsykleje...

Perl2Exe

Perl2Exe is a command line program for converting perl scripts to exe files. This allows you to create stand alone programs in perl that do not require the perl interpreter. You can ship the exe file without having to ship your perl source code.

[MaksasMks]

Ar išeitų sukurti su perl programėle, kuri veiktų kaip php? Ar va paprasčiau tarent ar išeitų sukurti *exe kurį atidarius atsidarytu kaip programa tik ten tieiog butu iframe kuris užkrautų webą :]

[GODhack]

Nlb suprantu ka tu nori padaryt. Bet speju(is to kad kisi cia php) tau reik kaska daryt su cgi. Nes cgi pagalba(ar kaip cia lietuviskai isireikst) Perl yra panaudojamas kiek panasiai kaip php. Sukuriami webai. Bet su cgi+Perl yra tam tikros savitos galimybes ko negalima su php. tarkim su cgi daznai igivendinami online zaidimai per narsykle.

[Xgreem]

GODhack vakar ziedamamas vidio tutorial maciau kaip perl scriptu perziurejo email..nu ta prasme paleido ta scripta ir consolei parpumavo kelis laiskus,idmomu pasidare,as ir panorau,bet niekaip nerandu niekur sourco.
Gal netycia pasirases esi ir pasidalinsi,jei ne tai nea,juk neversiu rasyt