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 <jimsgib...@gmail.com> 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 <willitc9...@gmail.com>
> 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
⠈⠳⣄⠀⠀⠀⠀
