10-21-2011
Sorry, I've been away... (work full time + full time student + some "email" emergency + caffeine withdrawal etc)
Thank you everyone for your help. I'm trying to learn Perl and finding it syntactically different than other C-like languages. (I've most recently been using VBA for data analysis)
But basically even though this code is going to be used... I'm also trying to learn what is going on.
Thanks Everyone.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi what is the most optimum way to ftp the most recently modified file starting with a particular string.
i tried this
ftp -n 2>logfile 1>&2 <<EOF
open xxxxxx
user xxxx xxxx
prompt
ls -ltr f* res
!var=`tail -1 |awk { print $9 }'`
bye
EOF
that gives... (6 Replies)
Discussion started by: ahmedwaseem2000
6 Replies
2. Shell Programming and Scripting
Hi,
I have many PERL scripts in my system(Solaris 10 UNIX OS).I want to define all scripts in one file and run.Please suggest how to define. (3 Replies)
Discussion started by: sudhakaryadav
3 Replies
3. Shell Programming and Scripting
Hi Friends,
I'm writing code to update a CSV file by multiple PERL scripts.
I've around 2000 PERL scripts which need to register their entries into a CSV file. Hence, I'm inserting following line code in all the 2000 PERL scripts.
open(FILE,... (5 Replies)
Discussion started by: Lokesha
5 Replies
4. Shell Programming and Scripting
Hi
Following is an example line.
echo "192.22.22.22 \"33dffwef\" 200 300 dsdsd" | sed "s:\(\ *\ \):\1:"
I want it's output to be
200
However this is not the case. Can you tell me how to do it? I don't want to use AWK for this. Secondly, how can i fetch just 300? Should I use "\2"... (3 Replies)
Discussion started by: shahanali
3 Replies
5. Shell Programming and Scripting
Hi,
I am looking for a command to search for a specific file which was recently modified in the current directory leaving some unwanted files to be listed.
For example, when I try ls - lrt
it shows the following output.
I want to ommit the files with the name 'resend' and... (3 Replies)
Discussion started by: svajhala
3 Replies
6. Shell Programming and Scripting
Hi, If I want to write perl program that simulated Least Recently Loaded(LRL) to calculate page fault:
The user must input page access and number of page fram that need to be greater than 3
Example
Page Access: 5, 3, 4, 1, 7, 5, 3, 2, 3, 6, 7, 1, 4, 6
Frames: 3
PA: 5 3 4 1 7 5 3 2 3 6... (6 Replies)
Discussion started by: guidely
6 Replies
7. Shell Programming and Scripting
Hi i have an input " load /appss/asdfas/...
I want to take the string present between first / / i.e appss
Input is "load /appss/asdfas/..."
Expected output is appss
Thanks in advance
Ananth (9 Replies)
Discussion started by: Ananthdoss
9 Replies
8. Shell Programming and Scripting
I need help with a bash script.
We have a directory of files which need to be renamed and moved to another directory based on filename information in a cvs file.
The contents of the cvs file are as follows:
A102345,abc123
A102347,dfg475
Where dfg475 is the basename without extension
Our... (8 Replies)
Discussion started by: Lloyd Boyette
8 Replies
9. Shell Programming and Scripting
Hi
We have to create a perl script..for part of a project
I ceated a script that called another perl module
use AppUtil::VMUtil;
But have been told that we need to incorpurate that module into my script...(with comments)
Would you know how to copy or place a module from one script... (2 Replies)
Discussion started by: olearydc
2 Replies
10. UNIX for Beginners Questions & Answers
Hi, I have a big csv file with below data.
file:
La Cage Aux Folles (Widescreen)
Famous Mystics and Psychics
A Passion for Planning Financials Operations Marketing Management and Ethics
Precious Moments Holy Bible New King James Version Precious Angels Edition Blue
Practical Recording... (9 Replies)
Discussion started by: Raghuram717
9 Replies
LEARN ABOUT DEBIAN
email::received
Email::Received(3pm) User Contributed Perl Documentation Email::Received(3pm)
NAME
Email::Received - Parse an email Received: header
SYNOPSIS
use Email::Received;
for ($mail->header("Received")) {
my $data = parse_received($_);
return "SPAM" if rbl_lookup($data->{ip});
}
DESCRIPTION
This module is a Perl Email Project rewrite of SpamAssassin's email header parser. We did this so that the great work they did in analysing
pretty much every possible Received header format could be used in applications other than SpamAssassin itself.
The module provides one function, "parse_received", which takes a single Received line. It then produces either nothing, if the line is
unparsable, a hash reference like this:
{ reason => "gateway noise" }
if the line should be ignored for some good reason, and one like this:
{ ip => '64.12.136.4', id => '875522', by => 'xxx.com',
helo => 'imo-m01.mx.aol.com' }
if it parsed the message. Possible keys are:
ip rdns helo ident envfrom auth by id
RULE FORMAT
Where SpamAssassin used a big static subroutine full of regular expressions to parse the data, we build up a big subroutine full of regular
expressions dynamically from a set of rules. The rules are stored at the bottom of this module. The basic format for a rule looks like
this:
((var=~)?/REGEXP/)? [ACTION; ]+
The "ACTION" is either "SET variable = $value", "IGNORE "reason"?", "UNPARSABLE" or "DONE".
One control structure is provided, which is basically an "if" statement:
GIVEN (NOT)? /REGEXP/ {
ACTION+
}
EXPORT
parse_received
SEE ALSO
Mail::SpamAssassin::Message::Metadata::Received, from which the rules and some of the IP address matching constants were blatantly stolen.
Thanks, guys, for doing such a comprehensive job!
AUTHOR
simon, <simon@>
COPYRIGHT AND LICENSE
Copyright (C) 2006 by simon
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or,
at your option, any later version of Perl 5 you may have available.
perl v5.10.0 2006-03-24 Email::Received(3pm)