To Perl or not to Perl, that is the question... ;o)


Login or Register for Dates, Times and to Reply

 
Thread Tools Search this Thread
# 8  
As a side note, when I was the lead guy during the once famous "Langley Cyber Attack", where my work in an epic "email reply spam battle" happened over two decades ago, long before spam filters became of age, we wrote all our email anti-spam filters and detection algorithms in PERL.

Edit: For anyone interested in the early days of "cyberwar" in the 1998/1997 timeframe:

E-Mail Bombs and Countermeasures: Cyber Attacks on Availability and Brand Integrity
April 1998IEEE Network 12(2):10 - 17
DOI: 10.1109/65.681925


Code:
https://www.researchgate.net/publication/3282628_E-Mail_Bombs_and_Countermeasures_Cyber_Attacks_on_Availability_and_Brand_Integrity


That PERL code "way back when" was "very crude" by todays standards, but it was very effective and fast. PERL was the best tool for that job "way back when". I was a huge PERL advocate back then, and would write all scripts in PERL, even when PERL was not needed. I loved PERL so much back then that I tried to get everyone to learn it and use it.

Sometimes old guys like me forget that the younger generations may not have had the chance to develop code in PERL and other "out of favor" programming languages these days. But when I read this discussion it brings back wonderful memories of some of the best "tech days" of my life, defending the US Air Force against hackers with PERL scripts in real-time.

wisecracker, I say "go for it" if you or anyone reading this has the time or interest to learn PERL. I would love to see a lot of people posting PERL problems here. Perhaps that would jog even more great memories from decades ago from the deep trenches of cyber warfare battles when the web was but an infant.
Login or Register for Dates, Times and to Reply

Previous Thread | Next Thread
Thread Tools Search this Thread
Search this Thread:
Advanced Search

10 More Discussions You Might Find Interesting

1. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

2. Shell Programming and Scripting

Perl question

Hi I am trying to issue a system call in my Perl script based on the presence of certain pattern in the other file. The pattern is stored in the variable. Can somebody help me with the syntax. This is an example: #!/usr/bin/perl open(MYFILE, "/t1/bin/t1syschk.cmd"); $pattern=cmprsvc; system... (3 Replies)
Discussion started by: aoussenko
3 Replies

3. Shell Programming and Scripting

PERL question

Hi I am new to PERL and need to add a line to the perl script which issues a system call if certain pattern exists in the file, for example: $system "my_command" if "my_pattern" exists in "my file" Can somebody help me with the syntax? Thanks (4 Replies)
Discussion started by: aoussenko
4 Replies

4. Shell Programming and Scripting

another perl question

I have a question regarding bulding a hash from a file which has below pattern I thought I could write something like this but clearly my syntax is way off $/ = "\n\n"; $" = "\n"; open(FILE, file1) || die; my %keymaster = ( ); while (<FILE>) { my $topinfo =~... (5 Replies)
Discussion started by: hankooknara
5 Replies

5. UNIX for Dummies Questions & Answers

perl question

hi, i have 3 lines of text abc dee eeee ggg sd dsd sdsd sdsd sdsd sdsds sds sdd sdsd sdsd sdsd sdsd how can i get the last word in each line using perl? Thanks and Regards Vivek.S (6 Replies)
Discussion started by: vivekshankar
6 Replies

6. Shell Programming and Scripting

Perl question

Hello Everybody, I am using perl..... I have a variable called line which stores the line of a file. I dont know how many words there will be in this line. But I would like to find out in perl and also store these words in the $1,$2,$3 and $4 variables eg if the line is "first second... (2 Replies)
Discussion started by: rkap
2 Replies

7. Shell Programming and Scripting

Perl Question

I do not know perl but need to know what the following conditional statement says. Can someone help ? if (/ \S+@\S+\.\S+ accepted $| \S+\/\S+ accepted $/) { next; } elsif (/ (\S+)\.\S+\.\S+\.\S+ \S+ \S+ \S+ \S+ \S+ (\S+)\.\S+\.(\S+)\.\S+ \S+ User (\S+) accepted... (2 Replies)
Discussion started by: Gary Dunn
2 Replies

8. Shell Programming and Scripting

Perl question

well hello.... again... Book: Learning Perl 2nd Edition page 130 section (Globbing) while ($nextname = </etc/host*>) { $nextname =~ s#.*/##; #remove part befor last slash print "one of the files is $nextname\n"; } ok teh line im haveing an issue with is the "$nextname =~... (2 Replies)
Discussion started by: Optimus_P
2 Replies

9. Shell Programming and Scripting

PERL question

Could someone tell me what is wrong with these PERL statements it is always setting the $status2 to the number inside of the brackets......why???????? if (/^Status:/) { $stat = $Fld; print "\$stat is $stat\n"; } the above is where i'm searching for a string... (1 Reply)
Discussion started by: frank
1 Replies

10. Shell Programming and Scripting

PERL Question

Can anyone tell me if the copy command in PERL has the same functionality as in KSH shell in UNIX or does it actually move the file ?? $cp_stat=system("cp $ENV{OLAMEBSDIR}/data/olam.ddabal$type $ENV{OLAMDIR}/balance/data/olam.ddabal$type.$HeaderDate"); (1 Reply)
Discussion started by: frank
1 Replies
Perl::Critic::Policy::CodeLayout::RequireTidyCode(3)	User Contributed Perl Documentation   Perl::Critic::Policy::CodeLayout::RequireTidyCode(3)

NAME
Perl::Critic::Policy::CodeLayout::RequireTidyCode - Must run code through perltidy. AFFILIATION
This Policy is part of the core Perl::Critic distribution. DESCRIPTION
Conway does make specific recommendations for whitespace and curly-braces in your code, but the most important thing is to adopt a consistent layout, regardless of the specifics. And the easiest way to do that is to use Perl::Tidy. This policy will complain if you're code hasn't been run through Perl::Tidy. CONFIGURATION
This policy can be configured to tell Perl::Tidy to use a particular perltidyrc file or no configuration at all. By default, Perl::Tidy is told to look in its default location for configuration. Perl::Critic can be told to tell Perl::Tidy to use a specific configuration file by putting an entry in a .perlcriticrc file like this: [CodeLayout::RequireTidyCode] perltidyrc = /usr/share/perltidy.conf As a special case, setting "perltidyrc" to the empty string tells Perl::Tidy not to load any configuration file at all and just use Perl::Tidy's own default style. [CodeLayout::RequireTidyCode] perltidyrc = SEE ALSO
Perl::Tidy AUTHOR
Jeffrey Ryan Thalhammer <jeff@imaginative-software.com> COPYRIGHT
Copyright (c) 2005-2011 Imaginative Software Systems. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module. perl v5.16.3 2014-06-09 Perl::Critic::Policy::CodeLayout::RequireTidyCode(3)

Featured Tech Videos