36 lines
1.1 KiB
Bash
36 lines
1.1 KiB
Bash
|
#! /bin/bash
|
||
|
|
|
||
|
|
regions="$(wget -q -O - https://dialectsarchive.com/dialects-accents)"
|
||
|
|
|
||
|
|
regions="$(echo "$regions" | sed -n -e '/Select a continent/,/clear/{ /Select a continent/d; /clear/d; p; }' | grep -io --color=never 'https[^"]*')"
|
||
|
|
|
||
|
|
for region in $regions
|
||
|
|
do
|
||
|
|
countries="$(wget -q -O - $region)"
|
||
|
|
|
||
|
|
countries="$(echo "$countries" | sed -n -e '/Please select a/,/clear/{ /Please select a/d; /clear/d; p; }' | grep -io --color=never 'https[^"]*')"
|
||
|
|
|
||
|
|
for country in $countries
|
||
|
|
do
|
||
|
|
dialects="$(wget -q -O - $country)"
|
||
|
|
|
||
|
|
dialects="$(echo "$dialects" | sed -n -e '/Please select a/,/clear/{ /Please select a/d; /clear/d; p; }' | grep -io --color=never 'https[^"]*')"
|
||
|
|
|
||
|
|
dir="$(basename $country)"
|
||
|
|
|
||
|
|
mkdir -p "$dir"
|
||
|
|
|
||
|
|
for dialect in $dialects
|
||
|
|
do
|
||
|
|
dialect="$(wget -q -O - $dialect)"
|
||
|
|
|
||
|
|
dialect="$(echo $dialect | grep -io 'https[^"]*\.mp3' | head -1)"
|
||
|
|
|
||
|
|
file="$(basename $dialect)"
|
||
|
|
|
||
|
|
echo "Downloading $file to $dir"
|
||
|
|
wget -q -O "$dir/$file" $dialect
|
||
|
|
done
|
||
|
|
done
|
||
|
|
done
|