File: get.pl

package info (click to toggle)
libmojomojo-perl 1.12%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 4,524 kB
  • sloc: perl: 14,730; xml: 120; sh: 97; makefile: 8; ruby: 6
file content (8 lines) | stat: -rw-r--r-- 275 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
 
use warnings;
use LWP::Simple qw/getstore/;
use Text::Emoticon::MSN;
my @files = map {$Text::Emoticon::MSN::EmoticonMap{$_}}
            keys %Text::Emoticon::MSN::EmoticonMap;
for my $file (@files) {
   getstore("http://messenger.msn.com/Resource/emoticons/$file",$file);
}