Re: podzieli?
Von: Ma?gorzata Krakowian (krakowian@gmail.com) [Profil]
Datum: 29.01.2008 17:52
Message-ID: <20080129175117.47a9326d@localhost>
Newsgroup: pl.comp.lang.perl
Datum: 29.01.2008 17:52
Message-ID: <20080129175117.47a9326d@localhost>
Newsgroup: pl.comp.lang.perl
Dnia 2008-01-29, o godz. 17:44:00 Zorro <zorro@zoooooro.pl> napisa³(a): > Maciej Misiak pisze: > >> mam d³ugasny string chce go podzieliæ na kawa³ki nie wiêksze ni¿ x > >> znaków (ostatni bêdzie krótszy a reszta d³ugo¶ci X) > > > > Ha! A wiêc jednak jeszcze kto¶ chce u¿ywaæ Perla! :) > > No to kolego proponujê funkcjê substr() > > ale to dzia³a raz a jakis ³amaniec na podzielenie zgrabnie na dowoln± > ilo¶c linijek? > $str = "aaaaaabbbbbbaaaaaabbbbbbcc"; (my @aaa) = ( $str =~ /(.{6})/g); foreach (@aaa){ print $_."\n"; # wypisz podstringi o dlugosci 6 } print $'."\n"; # to co zostalo to ja zaproponuje taki brzydki posob -- Malgorzata Krakowian "We all know Linux is great... it does infinite loops in 5 seconds." Linus Torvalds -- Archiwum grupy: http://niusy.onet.pl/pl.comp.lang.perl[ Auf dieses Posting antworten ]