3 Responses to "[RR/NF/CU] Giallo 2009 1080p BluRay x265-RARBG (1.4GB)"

Oldest First Newest First

12/28/21
16:33:19

EmilioEstevez

Thank you!

12/29/21
09:50:25

daemon

Mera Giallo Tutti Bene

12/29/21
10:46:29

daemon

my stupid perl script to rip srt and clean srt

first rip srt:

a=`basename "$1" .mkv`
t=`mkvinfo "$1"|perl -nle 'print "$1" if /Title: (.+)/'`
s=`mkvinfo "$1"|grep S_TEXT`
echo $s

# fix title
if [ "$t" != "" -a "$a" != "$t" ]; then
echo "$1: $t"
mkvpropedit "$1" --edit info --set "title=$a"
fi

# extract subs
if [ ! -z "$s" ]; then
# | + Codec ID: S_TEXT/ASS
# bash only
# if [[ $s == *"ASS"* ]]; then
# busybox, dash, ksh, ash
if [ -z "${s##*ASS*}" ]; then
mkvextract tracks "$1" $2:"$a.ass"
ffmpeg -i "$a.ass" "$a.tmp.srt"
tr -d '\r' < "$a.tmp.srt" > "$a.srt"
rm "$a.tmp.srt"
rm "$a.ass"
else
mkvextract tracks "$1" $2:"$a.srt"
fi
#remove font
#perl -i.bak -pe 's/<\/?font.*>//g' "$a.srt"
else
echo "no subs"
fi

then, clean:

type=`file "$1"`
echo "file type: $type"

if [ -z "$type" ]; then
exit 1
fi

# bash only
# if [[ $type == *"text"* ]]; then
# busybox, dash, ksh, ash
if [ ! -z "${type##*text*}" ]; then
echo "not a text file"
exit 2
fi

#remove CR
tr -d '\r' < "$1" > "$1".tmp
mv "$1".tmp "$1"

#remove font
perl -i.hi -pe 's/<\/?font[^<]*>//g' "$1"

#remove <i> and </i>
perl -i -pe 's/<\/?i>//g' "$1"

#remove {\an8}
perl -i -pe 's/^\{\\an8\}//g' "$1"

#remove Torrent downloaded from RARBG
perl -i -pe 's/.*RARBG.*//g' "$1"

#remove -MAN #2:
#perl -i -pe 's/(^-?[a-zA-Z\xc4\xe4]+.*:\s?)(.*)/$2/g' "$1"
perl -i -pe 's/(^-?[a-zA-Z\xc4\xe4]+.*:\s)(.*)/$2/g' "$1"

#replace I with l
#perl -i -pe 's/([a-zA-Z\xc4\xe4])(I+)/$1 . 'l' x length($2)/ge' $1

#remove (text):
perl -i -pe 's/^\-?\(.*\)\:?\s?//g' "$1"

#remove [text]:
perl -i -pe 's/^\s*\[.*\]\:?\s*//g' "$1"

#remove - [laughing]
perl -i -pe 's/^\-\s?\[.*\]\n//g' "$1"

#remove -[laughing] Yes, I did.
perl -i -pe 's/^\-\s?\[[\w]*\s?\]//g' "$1"

#remove Here. This is it. [man 1 clears throat]
perl -i -pe 's/\s?\[[\w\d ]*\]//g' "$1"

#remove - * I've cried
perl -i -pe 's/^\-\s?\*.*\n//g' "$1"

#remove ♪ dramatic music ♪
# ♪ Tom Petty's
# "Even the Losers" ♪

perl -i -pe 's/^\xe2\x99\xaa.*\n//g' "$1"
perl -i -pe 's/.*\xe2\x99\xaa\n//g' "$1"

# remove ¶¶ (c2b6)
#perl -i -pe 's/\s*\xc2\xb6\s*//g' "$1"

# remove ¶ Romance
# is mush ¶
perl -i -pe 's/^\xc2\xb6.*\n//g' "$1"
perl -i -pe 's/^.*\xc2\xb6\n//g' "$1"

# remove ♪
# ♪ Do you remember ♪
perl -i -pe 's/\xc3\xa2\xe2\x84\xa2\xc2\xaa//g' "$1"

# remove space before text
perl -i -pe 's/^\s+(.*)\n/$1\n/g' "$1"

#remove * music
perl -i -pe 's/^\*.*\n//g' "$1"

#remove music *
perl -i -pe 's/^[\w, ]*\*\n//g' "$1"

#remove (line 1,
# line 2)
#perl -i -00 -n -pe 's/^\d+\n\d\d:.*\n^\(.*\n.*\)\n//g' "$1"
#perl -i -pe 's/^\(.*\n.*\)//g' "$1"
perl -i -pe 's/^\([\w, ]*\n//g' "$1"
perl -i -pe 's/^[\w, ]*\)\n//g' "$1"

#remove [line 1,
# line 2]
# \x27 is single quote ', could use '\''
perl -i -pe 's/^\[[\w,"\x27 ]*\n//g' "$1"
perl -i -pe 's/^[\w, ]*\]\n//g' "$1"

#remove some text. (groans)
perl -i -pe 's/\(.*\)//g' "$1"

#remove lines with -- --
perl -i -pe 's/^-[- ]*\n//g' "$1"

#remove empty line in text
perl -i -0777 -n -pe 's/(\n[^\d]+)\n\n([^\d]+\n)/$1\n$2/g' "$1"

#remove empty line after time, before text
perl -i -0777 -n -pe 's/(\n\d\d:.*)\n\n([^\d]+\n)/$1\n$2/g' "$1"

#remove empty lines
perl -i -00 -n -pe 's/^\d+\n\d\d:.*\n\n//g' "$1"
#perl -i -0777 -n -pe 's/\n\d+\n\d\d:.*\n\n(\d+\n)/$1/g' "$1"

# not working. removes first line
# perl -00 -n -e 's/^\d+\n\d\d:.*\n\n//g; $cnt++ && s/\d+\n/$cnt\n/g && print $_ if $_ ne ""' koe.srt