Admin Scripts
-
Hey all, here's an interlude to the regularly scheduled 'weird, wide world of windows' :)
my $olddatemails = `ls -t Mailed20??????`;
my $datemailed = "";
$datemailed = $1 if ($olddatemails =~ /(20\d\d\d\d\d\d)/s);
die if ($datemailed eq "");
...$newdate = $datemailed;
while ($parse =~ s/Mailed(20\d\d)(\d\d)(\d\d).*?\n//s)
{
$newdate = $1 . $2 . $3;
}`mv "Mailed$datemailed" "Mailed$newdate"` if ($datemailed lt $newdate);
How many tautologies and inconsistencies can you count??? :wtf:
-
Hey all, here's an interlude to the regularly scheduled 'weird, wide world of windows' :)
my $olddatemails = `ls -t Mailed20??????`;
my $datemailed = "";
$datemailed = $1 if ($olddatemails =~ /(20\d\d\d\d\d\d)/s);
die if ($datemailed eq "");
...$newdate = $datemailed;
while ($parse =~ s/Mailed(20\d\d)(\d\d)(\d\d).*?\n//s)
{
$newdate = $1 . $2 . $3;
}`mv "Mailed$datemailed" "Mailed$newdate"` if ($datemailed lt $newdate);
How many tautologies and inconsistencies can you count??? :wtf:
First of all, what programming language is that?
-
First of all, what programming language is that?
-
Really? That's almost as depressing as the fact that the jackass who authored this atrocity is in effect my superior.. (also, Perl)
bulg wrote:
the jackass who authored this atrocity is in effect my superior
Your superior or your supervisor? :rolleyes:
bulg wrote:
Perl
Remind me to never use Perl. X|
-
bulg wrote:
the jackass who authored this atrocity is in effect my superior
Your superior or your supervisor? :rolleyes:
bulg wrote:
Perl
Remind me to never use Perl. X|
-
Hey all, here's an interlude to the regularly scheduled 'weird, wide world of windows' :)
my $olddatemails = `ls -t Mailed20??????`;
my $datemailed = "";
$datemailed = $1 if ($olddatemails =~ /(20\d\d\d\d\d\d)/s);
die if ($datemailed eq "");
...$newdate = $datemailed;
while ($parse =~ s/Mailed(20\d\d)(\d\d)(\d\d).*?\n//s)
{
$newdate = $1 . $2 . $3;
}`mv "Mailed$datemailed" "Mailed$newdate"` if ($datemailed lt $newdate);
How many tautologies and inconsistencies can you count??? :wtf:
-
Hey all, here's an interlude to the regularly scheduled 'weird, wide world of windows' :)
my $olddatemails = `ls -t Mailed20??????`;
my $datemailed = "";
$datemailed = $1 if ($olddatemails =~ /(20\d\d\d\d\d\d)/s);
die if ($datemailed eq "");
...$newdate = $datemailed;
while ($parse =~ s/Mailed(20\d\d)(\d\d)(\d\d).*?\n//s)
{
$newdate = $1 . $2 . $3;
}`mv "Mailed$datemailed" "Mailed$newdate"` if ($datemailed lt $newdate);
How many tautologies and inconsistencies can you count??? :wtf:
Is this for real?? I hope I have not become rusty on my Perl skills, as I am unable to comprehend how this ever works out
--> Getting information off the Internet is like taking a drink from a fire hydrant. --> In three words I can sum up everything I've learned about life: it goes on.