tag:blogger.com,1999:blog-180738146708053206.post5403026983197956498..comments2023-10-02T23:12:57.521+08:00Comments on A Little Bit of ME: Uploading photos to Facebook groups with PerlSoEhttp://www.blogger.com/profile/00484927113635908032noreply@blogger.comBlogger14125tag:blogger.com,1999:blog-180738146708053206.post-91419075779280693492010-12-04T20:58:01.657+08:002010-12-04T20:58:01.657+08:00They were all in close by the time John withdrew. ...They were all in close by the time John withdrew. Mywife complains and screams and I go pick up the phone and start dialinga number.<br />free male beastiality stories<br />true sex stories<br />true sex stories teen<br />interracial lesbian love stories<br />free stories teen incest<br />They were all in close by the time John withdrew. Mywife complains and screams and I go pick up the phone and start dialinga number.stories incesthttp://zanolay5c.land.ru/free-lolita-sex-stories.htmlnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-39709302592690443172010-12-04T16:11:35.486+08:002010-12-04T16:11:35.486+08:00Ziggy took the packed cake and walked down the ais...Ziggy took the packed cake and walked down the aislewith Stephanie lagging behind him in deep thought. The echo of Gingers heels marked her departure.<br />horrible rape stories<br />erotic mind control stories<br />porn stories com<br />schoolgirl spanking stories<br />gay daddy sex stories<br />Ziggy took the packed cake and walked down the aislewith Stephanie lagging behind him in deep thought. The echo of Gingers heels marked her departure.high school cheerleader true sex storieshttp://doorssedu.dousetsu.com/free-nasty-porn-stories.htmlnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-29220288895000258442010-05-09T00:44:32.656+08:002010-05-09T00:44:32.656+08:00still works...still works...Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-22924414304016428852009-08-29T01:05:25.654+08:002009-08-29T01:05:25.654+08:00great stuff dude! this will save me hours of tedio...great stuff dude! this will save me hours of tedious sortingStan Gnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-16969436563581248832009-08-09T12:41:44.310+08:002009-08-09T12:41:44.310+08:00yesss!!! finallyyesss!!! finallyAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-14865106995252475942009-07-14T16:02:51.411+08:002009-07-14T16:02:51.411+08:00sorry, not using it. not much into fb.sorry, not using it. not much into fb.meekaakuhttps://www.blogger.com/profile/02175487389469795677noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-82748436305263894202009-07-14T15:49:19.454+08:002009-07-14T15:49:19.454+08:00awesome help dude really appreciate it. Are you us...awesome help dude really appreciate it. Are you using this btw?SoEhttps://www.blogger.com/profile/00484927113635908032noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-33557787862024899102009-07-14T12:45:55.566+08:002009-07-14T12:45:55.566+08:00line 1:
Perls foreach loops thru an array doing so...line 1:<br />Perls foreach loops thru an array doing something over the whole list. Perl has special variables such as $_, @_ and others which makes things a bit cryptic, but very useful. $_ refers to the current argument being processed (in this case the foreach loop). Hence 'convert $_ $_.fgup.jpg' is equivalent to 'convert 1.jpg 1.fgup.jpg'.<br /><br />sub upload():<br />It is called with @upfiles as arguments. Within the sub @_ contains the arguments passed. $#_ is number of items in @_ (starting with 0). In the sub first check if a null list was passed (otherwise it will recurse forever). the line<br />$numfiles = ($#_ < 4 ? $#_ : 4) <br />sets $numfiles to 4 (0-4 is five items), or $#_ whichever is less. This syntax is similar to C.<br /><br />the line:<br />foreach $i (1..$numfiles+1) {print "mech->field$i => " . shift . "\n";} <br />is a bit tricky.<br /><br />foreach $i (1..10) {} is same as for ($i=1; $i<=10; $++){}<br />The 'shift' is an array operator like pop and push. it grabs the item at the top of the array and REDUCES the number of items in the array.<br /><br />if @list = {'1', '2', '3'}, then shift(@list) pulls out '1' leaving @list with '2' and '3' only.<br /><br />now giving just 'shift' without an argument makes it operate on @_ (the argument list passed to the sub).<br />So basically its shift(@_). Now that @_ is reduced by 5 items, upload is called recursively with the remaining items in @_ passed.<br /><br />Hope that clears. Refer to perl special variables and array operators.meekaakuhttps://www.blogger.com/profile/02175487389469795677noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-19641784771141496272009-07-14T05:11:54.631+08:002009-07-14T05:11:54.631+08:00I'm a bit lost there since I'm not familia...I'm a bit lost there since I'm not familiar with Perl's lexicon. could you walk me through it a little?SoEhttps://www.blogger.com/profile/00484927113635908032noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-32849865608881948182009-07-14T00:07:02.553+08:002009-07-14T00:07:02.553+08:00A perlish way of doing it recursively...
foreach...A perlish way of doing it recursively...<br /><br /><br />foreach (@ARGV) {system ("cp $_ $_.fgup.jpg");}<br />@upfiles = <*.fgup.jpg>;<br />upload (@upfiles);<br />system ("rm *.fgup.jpg");<br /><br />sub upload () {<br /> return if ($#_ < 0);<br /> my $numfiles = ($#_ < 4 ? $#_ : 4);<br /> foreach $i (1..$numfiles+1) {print "mech->field$i => " . shift . "\n";}<br /> print "mech->submit\n";<br /> upload (@_);<br />}meekaakuhttps://www.blogger.com/profile/02175487389469795677noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-57806349584098839692009-07-12T17:03:10.180+08:002009-07-12T17:03:10.180+08:00thanks for the suggestions! I'll put that in w...thanks for the suggestions! I'll put that in with the next update. I'm new to Perl so I'm still discovering its abilities..<br /><br />and I suppose you're right about it being a C program written in Perl, I was brought up on C :)SoEhttps://www.blogger.com/profile/00484927113635908032noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-80186378656912677732009-07-12T16:47:37.937+08:002009-07-12T16:47:37.937+08:00Its good. but its more of a C program written in p...Its good. but its more of a C program written in perl. You are not using the real power of perl. you can convert all the files and grab a list in two lines:<br /><br />foreach (@ARGV) {system ("convert $_ $_.fgup.jpg");}<br />@upfiles = <*.fgup.jpg>;<br /><br />now @upfile contains the name list of files that have been converted and ready to upload. Now you can loop and upload in sets of 5.<br /><br />to remove temp storage no need for find command. just do system ("rm *.fgup.jpg");<br /><br />to run no need to give perl command.<br />just script name will do (since the shebang line is given) if you have execute permission.meekaakuhttps://www.blogger.com/profile/02175487389469795677noreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-2706565256563192552009-07-12T16:26:39.157+08:002009-07-12T16:26:39.157+08:00what kind of "modifications" are needed ...what kind of "modifications" are needed to make this work in windows?Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-180738146708053206.post-50730168257184466732009-07-12T13:53:41.199+08:002009-07-12T13:53:41.199+08:00this is helpful. Thanksthis is helpful. Thanksari_goodmannoreply@blogger.com