Re: Can use perl for download photos from facebook?

Did you download Facebook.html and already have it sitting on your computer?

Can you upload that to a gist and share it here?

On Sat, Mar 19, 2022 at 8:48 PM William Torrez Corea <[email protected]>
wrote:

> 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
> ⠈⠳⣄⠀⠀⠀⠀
>
>