Re: Can use perl for download photos from facebook?

On Mar 19, 2022, at 7:17 PM, William Torrez Corea <[email protected]> wrote:
> 
> Here is the short code:
> 
> https://gist.github.com/adipasquale/2217595
> 

The regular expression in that program is not valid. You are using brackets […] incorrectly. The pattern [a-z] will match exactly one character in the range a-z. The pattern [a-z\/\.] will match one character in the range a-z or the backslash character ‘\’ or the forward slash character’/‘ or the period character ‘.’. Inside brackets you do not need to escape special characters, and if you want to match the ‘-‘ character, put it at the beginning or ending of the pattern string, e.g. [a-z-] will match a-z or ‘-‘.

Here is a regular expression that should do what you want:

	while ( /(https?:\/\/\S*?\.jpg)/g ) {

Here is another one that uses the m{} operator so you don’t have to escape the ‘/‘ characters and the /x modifier to allow you to insert whitespace and comments into the regular expression to make it more readable:

	while ( m{ ( https?:// \S*? .jpg ) }xg ) {

Either of these finds 47 links to .jpg files in your data document:

https://scontent.fmga3-1.fna.fbcdn.net/v/t39.30808-1/274490608_3202483196693292_7724900589789523726_n.jpg
...
   
Jim Gibson




-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/