Face2book (1)

Voilà un petit script marrant que j’ai écrit vite fait pour Facebook :

cat facebook.txt |
awk -F / '{ if ($i ~ /^http/) {print $0}}' |
sed '/^$/d' |
sort | uniq > tmp.txt

cat tmp.txt |
awk -F / '{print $5}' | tr '-' '  '

mkdir ./profile

# Récupération des pages de profile
for profile in `cat tmp.txt` ; do
    wget -r -l5 --user-agent=Mozilla/5.0 --no-parent --no-host-directories
                  --cut-dirs=4 -P./profile $profile
done

cd ./profile

# Récupération des photos
for fiche in * ; do
    cat $fiche | tr '<' '\n' |
    grep -i $fiche |
    wget --user-agent=Mozilla/5.0 `awk -F " '{print $2}'`
done

cd ..
rm -f tmp.txt