#!/usr/bin/perl # $date_cmd2 =`/bin/date '+%d/%m/%Y'`; $date2 = $date_cmd2; $prog = substr ($0, rindex ($0, '/') + 1); if ($#ARGV < 0) { # imprimo usage si lo paso sin args print "usage: $prog nomarch(s)\n"; print " use: Saca los ^M de nomarch(s)\n"; exit; } foreach $nomarch (@ARGV) { if (! -e "$nomarch") {print "ERROR: no existe $nomarch inexistant\n";next;} open (FILEIN,"$nomarch") || die "ERROR: no puedo leer $nomarch: $!\n"; $fileout = $nomarch; print $fileout if ($fileout =~ s/\?//); print $fileout if ($fileout =~ s/\&//); open (FILEOUT,">$fileout.html") || die "ERROR: no puedo crear $fileout.html: $!\n"; # Header fondos.com.ar print FILEOUT " \n"; print FILEOUT " \n"; print FILEOUT " \n"; print FILEOUT " \n"; print FILEOUT " \n"; print FILEOUT " \n"; print FILEOUT "

BA.net News Social Posts Archive Index (SEO)

\n"; print FILEOUT "

AI Social Manager

\n"; while () { $_ =~ s/\n/
/gi; $_ =~ s/https:\/\/x.com\/(.*)/nitter.net\/$1<\/a>
X.com reader link no account required/gi; $_ =~ s/(https?:\/\/\S+\.(?:jpg|jpeg|png|gif|webp))/

<\/center>/gi; $_ =~ s/https:\/\/tidal.com\/track\/(.*?)\//