Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^4: renaming all files in a directory

by Aldebaran (Curate)
on Jun 12, 2012 at 01:12 UTC ( [id://975668]=note: print w/replies, xml ) Need Help??


in reply to Re^3: renaming all files in a directory
in thread renaming all files in a directory

Alright, well I previewed the terminal output as a normal paragraph, and that doesn't work at all because the newlines disappear, so I hope the best way is to use separate code blocks for terminal output and then a code listing.

$ perl lh2.pl img: WWW::Mechanize::Image=HASH(0xa8acc5c) https://sites.google.com/site/lutherhavennm/_/rsrc/1255408739014/missi +on/Attachment3.jpg?height=278&width=420 ext: jpg?height=278&width=420 ext: jpg img: WWW::Mechanize::Image=HASH(0xa8b67cc) https://sites.google.com/site/lutherhavennm/_/rsrc/1255386973661/missi +on/Picture1.jpg?height=279&width=420 ext: jpg?height=279&width=420 ext: jpg img: WWW::Mechanize::Image=HASH(0xa8b6934) https://sites.google.com/site/lutherhavennm/_/rsrc/1255408642180/missi +on/Attachment10.jpg?height=280&width=420 ext: jpg?height=280&width=420 ext: jpg img: WWW::Mechanize::Image=HASH(0xa8b6524) https://sites.google.com/site/lutherhavennm/_/rsrc/1255387202014/missi +on/Looking%20up%20at%20the%20Bldg.JPG?height=315&width=420 ext: JPG?height=315&width=420 ext: JPG downloaded 4 images from https://sites.google.com/site/lutherhavennm/m +ission to folder site_18 $ cat lh2.pl
#!/usr/bin/perl -w use strict; use feature ':5.10'; use WWW::Mechanize; use LWP::Simple; use Errno qw[ EEXIST ]; # get information about images my $domain = 'https://sites.google.com/site/lutherhavennm/mission'; my $m = WWW::Mechanize->new(); $m->get($domain); my @list = $m->images(); # create new folder and download images to it. my $counter = 0; my $dir = &mk_new_dir; for my $img (@list) { print "img: $img\n"; my $url = $img->url_abs(); print "$url \n"; my $ext = ($url =~ m/([^.]+)$/)[0]; print "ext: $ext\n"; $ext =~ s/\?.+//; print "ext: $ext\n"; $counter++; my $filename = $dir . "/image_" . $counter. '.' . $ext; getstore( $url, $filename ) or die "Can't download '$url': $@\n"; } # output print "downloaded ", $counter, " images from ", $domain, "\n"; print "to folder ", $dir, "\n"; sub mk_new_dir { my $counter2 = 1; while (1) { my $word = "site"; my $name = $word . '_' . $counter2++; if ( mkdir $name, 0755 ) { return $name; # success, return new dir name } else { next if $!{EEXIST}; # mkdir failed because file exists die sprintf "(%d) %s", $!, $!; # other failure; bail ou +t! } } } $

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://975668]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2024-03-29 14:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found