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

Sponsored Content

Top Forums Programming To Perl or not to Perl, that is the question... ;o) Post 303037702 by Neo on Friday 9th of August 2019 08:12:06 PM

08-09-2019

Administrator

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.

Neo

View Public Profile for Neo

Visit Neo's homepage!

Find all posts by Neo

10 More Discussions You Might Find Interesting

1. 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");

2. 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...

3. Shell Programming and Scripting

Question about Perl

Where can i find solid information about programming in Perl? Thank you in advance!!!:)

4. Shell Programming and Scripting

Perl: tk question

When i run my perl/tk script, a perl window pops up behind the GUI window,, can this be hidden???? Also, can the Icon be changed, the Tk icon in every window???

5. Shell Programming and Scripting

perl question

If I use 2 system commands in a script, will one finish before the next one starts? or will it start the first and the second at the same time? i.e. system("ps | grep rminer"); system("ls -al | grep 431");

6. Shell Programming and Scripting

Perl Question

Hi everyone I am not even a novice at Perl scripting .. but had to edit one the other day. The only way I can get it to run is by prefixing 'perl' before running it - ie # perl scriptname I am running AIX. Any ideas why i have to do that ? Thanks!

7. Shell Programming and Scripting

PERL I/O question

Playing with an until loop as follows: my $input; until ($input eq "quit") { print "Please enter something:"; $input = <STDIN>; chomp $input; if ($input eq "dog") { print "cat" ; } else { print "Please re-enter"; } } Something simple like this... I want to prompt the user to...

8. Shell Programming and Scripting

Perl question!

Hi All, I am new to perl and just want to read the text file and write back it into another file with some modification. Here is my requirement: input file: USB_OTG_PATH top.usb_top.otg_top USB_HSIC_PATH top.usb_top.hsic_top .. (All starts with USB_) ... START_PATH USB_OTG_PATH.interrupt...

9. Shell Programming and Scripting

Perl question

Hi All, I am new to Perl and got a real stupid question. We are trying to install the Date:Calc package for some calculations with dates.The security guys mentioned they won't install it as root in /usr/bin/perl but have asked us to install it in any directory and use it from there. Here's the...

10. 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...

LEARN ABOUT DEBIAN

perl-depends

PERL-DEPENDS(1) 					      cvs status - formatter						   PERL-DEPENDS(1)

NAME

       perl-depends - Roughly find out module depends from Perl file(s)

SYNOPSIS

	 perl-depends [options] FILE [FILE ...]

DESCRIPTION

       Find out roughly the modules the program uses. This is based on the idea, that Perl evaluates the "use" commands at compile time and stores
       the loaded module information into the %INC variable. By examining the loaded modules and comparing them against the standard Perl modules,
       the external module dependencies can be roughly estimated.

       The depends information can be used to determine what external modules have to be installed before a program can be used.

       The target FILE have to be instrumented with the dependency checking code. The resulting "binary" is then stored in a temporary file which
       the user runs.

       This program does not run the instrumented files because it cannot know what possible options need to be passed for the program to trigger
       "no behavior". That is, something that doesn't actually involve executing the "binary" in real. Such options passed would include
       --version, --dry-run, invalid options like --generate-syntax-error-now, or invalid files etc. to make program stop on error. The user can
       know better the details of running the intrumented file.

       An example of output: the external module depends here is 'Regexp::Common' and the rest of them can be ignored.

	   Regexp::Common		  Regexp/Common.pm
	   Regexp::Common::CC		  Regexp/Common/CC.pm
	   ...

OPTIONS

       -e, --extension=EXT
	   Use extension EXT for instrumented files. The default is ".tmp".

       -h, --help
	   Print text help

       --help-html
	   Print help in HTML format.

       --help-man
	   Print help in manual page man(1) format.

       -v, --verbose LEVEL
	   Print informational messages. Increase numeric LEVEL for more verbosity.

       -V, --version
	   Print contact and version information.

EXAMPLES

       Instrument a file, run it to see results and delete instrumentation:

	   perl-depends file.pl
	   perl file.pl.tmp --version
	   rm *.tmp

TROUBLESHOOTING

       None.

ENVIRONMENT

       None.

FILES

       None.

EXIT STATUS

       This program's exit status is not defined.

       The instrumented programs exit status is 1 in case external moduels are displayed and 0 if no external modules are found.

DEPENDENCIES

       Uses standard Perl modules.

BUGS AND LIMITATIONS

       None.

SEE ALSO

       cpan(1)

AVAILABILITY

       http://freshmeat.net/projects/perl-depends

AUTHOR

       Jari Aalto <jari.aalto@cante.net>

LICENSE

       Copyright (C) 2009-2011 Jari Aalto <jari.aalto@cante.net>

       This program is free software; you can redistribute and/or modify program under the terms of GNU General Public license either version 2 of
       the License, or (at your option) any later version.

perl v5.10.1							    2011-03-24							   PERL-DEPENDS(1)