Re: Can use perl for download photos from facebook?

I have a short code:

#!/usr/bin/perl;
@ARGV = ("Facebook.html");
while(<>){
while(/(http[a-z\-\.0-9:\/]*\w*)_a.jpg/g){
print "wget $1_n.jpg\n";
}
}

But the result expected is null. I don't know why.

On Sat, Mar 19, 2022 at 7:21 AM Jim Gibson <[email protected]> wrote:

> Check out the LWP library of modules on CPAN:
>
> <https://metacpan.org/pod/LWP>
>
> > On Mar 19, 2022, at 6:07 AM, William Torrez Corea <[email protected]>
> wrote:
> >
> > I have an idea from the program but I don't know where to start.
> >
>
> Jim Gibson
>
>
>
>

-- 

With kindest regards, William.

⢀⣴⠾⠻⢶⣦⠀
⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system
⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org
⠈⠳⣄⠀⠀⠀⠀