Perl

Žinutė
Autorius
Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

Perl

#1 Standartinė GODhack » 2006 07 18 23:50

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? :roll:
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Wirusas
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 66
Užsiregistravo: 2005 04 30 18:58

#2 Standartinė Wirusas » 2006 07 19 17:26

Gali buti kad as klystu bet ma atrodo kad cia bus sukuriama begalybe ciklu. Bet tikriausiai kad klystu nes programavime esu dar zalias :lol:
Life is made of obstacles and challenges - To overcome them is to progress.

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#3 Standartinė GODhack » 2006 07 19 21:00

Panasu taip ir butu galima sakyti ziurint vien i pirma eilute, bet del antros eilutes gaunas neteisybe.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Wirusas
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 66
Užsiregistravo: 2005 04 30 18:58

#4 Standartinė Wirusas » 2006 07 20 08:40

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. :lol:
Life is made of obstacles and challenges - To overcome them is to progress.

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#5 Standartinė GODhack » 2006 07 20 19:44

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".
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#6 Standartinė GODhack » 2006 07 26 19:10

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.
Paskutinį kartą redagavo GODhack 2006 07 27 03:08, redaguota 1 kartą(us).
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Vartotojo avataras
ZoltaN
jaunasis rašytojas
jaunasis rašytojas
Pranešimai: 83
Užsiregistravo: 2005 06 18 10:20

#7 Standartinė ZoltaN » 2006 07 26 20:53

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.

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#8 Standartinė GODhack » 2006 07 27 03:15

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.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

MaksasMks
ultra dalyvis
ultra dalyvis
Pranešimai: 590
Užsiregistravo: 2005 12 30 22:20

#9 Standartinė MaksasMks » 2006 08 31 17:49

Kadangi perl visiškai nemoku, tai klausiu tokį klaismą :] O kaip *pl failą pakeisti į *exe ir ar tai išvis įmanona? 8)
Get your ambition or die trying

rand
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 28
Užsiregistravo: 2006 08 13 18:06

#10 Standartinė rand » 2006 08 31 19:28

MaksasMks rašė:Kadangi perl visiškai nemoku, tai klausiu tokį klaismą :] O kaip *pl failą pakeisti į *exe ir ar tai išvis įmanona? 8)
http://www.google.lt/search?hl=lt&q=%22 ... A1ka&meta=

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#11 Standartinė GODhack » 2006 09 01 20:00

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.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

rand
nuolatinis dalyvis
nuolatinis dalyvis
Pranešimai: 28
Užsiregistravo: 2006 08 13 18:06

#12 Standartinė rand » 2006 09 01 22:30

GODhack rašė: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
ultra dalyvis
ultra dalyvis
Pranešimai: 590
Užsiregistravo: 2005 12 30 22:20

#13 Standartinė MaksasMks » 2006 09 04 20:32

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ą :]
Get your ambition or die trying

Vartotojo avataras
GODhack
profesionalas
profesionalas
Pranešimai: 4469
Užsiregistravo: 2005 03 18 21:13
Susisiekti:

#14 Standartinė GODhack » 2006 09 08 20:00

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.
Nepatikti blogiems - girtinas dalykas. SENEKA
__________________________________________
progenic.com
library.2ya.com
Paveikslėlis

Xgreem
ultra dalyvis
ultra dalyvis
Pranešimai: 522
Užsiregistravo: 2006 02 25 20:00

#15 Standartinė Xgreem » 2006 09 27 22:25

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 :roll:
linux + nessus + nmap + exploit +enter = all doors open

Skelbti atsakymą

Grįžti į

Dabar prisijungę

Vartotojai naršantys šį forumą: 1 ir 0 svečias(ių)