71 lines
1.7 KiB
Bash
Executable File
71 lines
1.7 KiB
Bash
Executable File
#! /bin/bash
|
|
|
|
url="https://www.dialectsarchive.com"
|
|
|
|
continents="africa
|
|
asia
|
|
australia-oceania
|
|
caribbean
|
|
central-america
|
|
europe
|
|
middle-east
|
|
north-america
|
|
south-america"
|
|
|
|
for continent in $continents
|
|
do
|
|
countries_html="$(wget -q -O - $url/$continent)"
|
|
|
|
country_urls="$( \
|
|
echo "$countries_html" | \
|
|
sed -n -e '/Please select a/,/clear/{p;}' | \
|
|
grep -io --color=never "$url/[^\"]*" \
|
|
)"
|
|
|
|
for country_url in $country_urls
|
|
do
|
|
dialect_html="$(wget -q -O - $country_url)"
|
|
|
|
country="$(basename $country_url)"
|
|
|
|
dialect_lines="$( \
|
|
echo "$dialect_html" | \
|
|
grep -iP --color=never "$url/$country-\d+\">[^>]*>.*?(fe)?male" \
|
|
)"
|
|
|
|
directory="$continent/$country"
|
|
|
|
mkdir -p "$directory"
|
|
|
|
IFS=$'\n'
|
|
for dialect_line in $dialect_lines
|
|
do
|
|
dialect_url="$( \
|
|
echo "$dialect_line" | \
|
|
grep -io --color=never 'https[^"]*' \
|
|
)"
|
|
|
|
dialect_info="$( \
|
|
echo "$dialect_line" | \
|
|
grep -Po --color=never "(?<=</a>)[^<]+(?=<)" | \
|
|
sed 's/\W*$//' | \
|
|
sed 's/^\W*//' | \
|
|
sed 's/\//_/g' \
|
|
)"
|
|
|
|
dialect_html="$(wget -q -O - $dialect_url)"
|
|
|
|
dialect_download="$( \
|
|
echo $dialect_html | \
|
|
grep -io 'https[^"]*\.mp3' | \
|
|
head -1 \
|
|
)"
|
|
|
|
filename="$(basename $dialect_url): $dialect_info.mp3"
|
|
|
|
echo "Downloading $filename to $directory"
|
|
wget -q -O "$directory/$filename" $dialect_url
|
|
done
|
|
done
|
|
done
|