Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Perl appending data to certain location in file

Status
Not open for further replies.
perlnewbie9292

perlnewbie9292

Programmer
Jul 15, 2009
25
US
Hello I have the following script with I have been pulling my hair out trying to get the second part working. Please keep in mind I am pretty new to Perl. I am having trouble figuring out how to capture the lines which contain the string "RCPT TO" and add each of the captured lines to the correct section below the To: field. One file will contain sometimes contain one or more data sections. In this example it contains three data sections then what the script does is separates them into three sections, now I want to append all the RCPT lines to it's corresponding sections. This is code I use on a box which saves input from the web. For some reason every time I try to match using the regex for the RCPT line it captures them but then my buffer is empty and only contains the RCPT data. Thanks for the help in advanced.

Keep in mind that these are not email messages just data that users submit, so using a cpan mail module won't do the trick which is why I am taking this route.

So all in all with the code that I have the only additional thing that I am having trouble doing is grabbing the line that starts with ^RCPT TO: for each DATA section and appending it right below the To: line in for each corresponding section.

Thanks for the help!

Code: 
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $lineBufferStatus = 0;
my @rcptBuffer = ();
my @linesBuffer = ();
my $msgUpdateCnt = 0;


while (<DATA>) {
	if ( $_ =~ /^DATA(?:\n|\r\n)$/ ) {
        	print "In second If statement DATA if statement\n";
                @linesBuffer = ();
                $lineBufferStatus = 0;
	}
        elsif ( $_ =~ /^\.(?:\n|\r\n)$/ ) {
        	if ( int(@linesBuffer) > 0 ) {
                	while( int(@linesBuffer) > 0 ) {
                                print shift(@linesBuffer);
                        }
                        print "\r\n.\r\nQUIT\r\n";
                        $msgUpdateCnt++;
                }
                $lineBufferStatus = 1;
	}
        elsif ( $lineBufferStatus == 0 ) {
        	push( @linesBuffer, $_ );
	}
}

if ( int(@linesBuffer) > 0 ) {
	my $perMsgRcptBufCnt = 0;
        while( int(@linesBuffer) > 0 ) {
                print shift(@linesBuffer);
	}
        print "\r\n.\r\nQUIT\r\n";
        $msgUpdateCnt++;
}
if ( $msgUpdateCnt ==  1 ) {
	print "---------------------EQUALS 1--------------------\n";
}
elsif ( $msgUpdateCnt > 1 ) {
	print "---------------------EQUALS 2--------------------\n";
}



__DATA__
EHLO testdomain.com
MAIL FROM:<outsideuser01@outdomain.com> SIZE=1016 BODY=7BIT
RCPT TO:<testuser01@testdomain.com>
RCPT TO:<testuser02@testdomain.com>
DATA
Received: from 1.1.1.1(helo=mvastnlufgt.mgrjofpxydauvu.info)
        by  with esmtpa (Exim 4.69)
        (envelope-from )
        id 1MM6HB-1114fm-3T
        for testuser01@testdomain.com; Sun, 9 Jan 2011 23:07:59 +0100
From: "outsideuser01" <outsideuser01@outdomain.com>
To: <testuser01@testdomain.com>
Subject: Re:   good evening
Date: Sun, 9 Jan 2011 23:07:59 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
        boundary="----=_ppstll_21_19_24"
X-Priority: 3
X-Mailer: choakmps.33
Message-ID: <5C74A867.4001970@aclighting.com>

------=_ppstll_21_19_24
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

H i                                         website: [URL unfurl="true"]http://canadianph.tz=[/URL]
hzvebp.ajwcd.ru - CanadianPharmacy
------=_ppstll_21_19_24
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=
1">
<STYLE></STYLE>
</HEAD>
<BODY>
H i                                         <br>
website: [URL unfurl="true"]http://canadianph.tzhzvebp.ajwcd.ru[/URL] - CanadianPharmacy          =


</BODY></HTML>

------=_ppstll_21_19_24--
.
RSET
MAIL FROM:<Megan@bankofdeerfield.com> SIZE=1016 BODY=7BIT
RCPT TO:<testuser36@testdomain.com>
RCPT TO:<testuser22@testdomain.com>
RCPT TO:<testuser99@testdomain.com>
DATA
Received: from mdmcfntioehaoqtcmjdmjmcm (192.168.1.33) by wonderware.com (80.149.49.194) with Microsoft SMTP Server id 8.0.685.24; Sun, 9 Jan 2011 23:08:07 +0100
Message-ID: <4D2A2627.204070@pacunion.com>
Date: Sun, 9 Jan 2011 23:08:07 +0100
From: "Megan" <Megan@bankofdeerfield.com>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.9) Gecko/20100921 Thunderbird/3.1.4
MIME-Version: 1.0
To: <testuser36@testdomain.com>
Subject: good morning
Content-Type: multipart/alternative;
 boundary="------------02070800106050608090806"
X-Priority: 3
X-Mailer: choakmps.33
Message-ID: <5C74A867.4001970@aclighting.com>

------=_ppstll_21_19_24
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi                                     website: [URL unfurl="true"]http://canadianp=[/URL]
kerur.ru - CanadianPharmacy
------=_ppstll_21_19_24
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=
1">
<STYLE></STYLE>
</HEAD>
<BODY>
H i                                         <br>
website: [URL unfurl="true"]http://canadianp.kerur.ru[/URL] - GermanPharmacy          =


</BODY></HTML>

------=_ppstll_21_19_24--
.
RSET
MAIL FROM:<robertson@roberts.com> SIZE=9916 BODY=7BIT
RCPT TO:<testuser2937@testdomain.com>
RCPT TO:<testuser22@testdomain.com>
DATA
Received: from testdomains (172.12.223.44) by wonderware.com (32.34.49.194) with Microsoft 23:08:07 +0100
Message-ID: <4D2A2627.204070@pacunion.com>
Date: Sat, 8 Jan 2011 17:18:27 +0100
From: "Megan" <robertson@roberts.com>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.9) Gecko/20100921 Thunderbird/3.1.4
MIME-Version: 1.0
To: <testuser2937@testdomain.com>
Subject: morning
Content-Type: multipart/alternative;
 boundary="------------02070800106050608090806"
X-Priority: 3
X-Mailer: choakmps.33
Message-ID: <5C74A867.4001970@aclighting.com>

------=_ppstll_21_19_24
Content-Type: text/plain;
.
RSET

Using one of the messages as a sample (This is the FIRST message from the __DATA__ section) before and after this is what I am trying to accomplish.

Code: 
--------THIS IS THE CURRENT OUTPUT--------

Received: from 1.1.1.1(helo=mvastnlufgt.mgrjofpxydauvu.info)
        by  with esmtpa (Exim 4.69)
        (envelope-from )
        id 1MM6HB-1114fm-3T
        for testuser01@testdomain.com; Sun, 9 Jan 2011 23:07:59 +0100
From: "outsideuser01" <outsideuser01@outdomain.com>
To: <testuser01@testdomain.com>
Subject: Re:   good evening
Date: Sun, 9 Jan 2011 23:07:59 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
        boundary="----=_ppstll_21_19_24"
X-Priority: 3
X-Mailer: choakmps.33
Message-ID: <5C74A867.4001970@aclighting.com>

------=_ppstll_21_19_24
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

H i                                         website: [URL unfurl="true"]http://canadianph.tz=[/URL]
hzvebp.ajwcd.ru - CanadianPharmacy
------=_ppstll_21_19_24
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=
1">
<STYLE></STYLE>
</HEAD>
<BODY>
H i                                         <br>
website: [URL unfurl="true"]http://canadianph.tzhzvebp.ajwcd.ru[/URL] - CanadianPharmacy          =


</BODY></HTML>

------=_ppstll_21_19_24--
.


--------THIS IS THE DESIRED OUTPUT ( I have captured both 

Received: from 1.1.1.1(helo=mvastnlufgt.mgrjofpxydauvu.info)
        by  with esmtpa (Exim 4.69)
        (envelope-from )
        id 1MM6HB-1114fm-3T
        for testuser01@testdomain.com; Sun, 9 Jan 2011 23:07:59 +0100
From: "outsideuser01" <outsideuser01@outdomain.com>
To: <testuser01@testdomain.com>
To: <testuser01@testdomain.com> *********-----APPENDED RCPT LINE HERE------**********
To: <testuser02@testdomain.com> *********-----APPENDED RCPT LINE HERE------**********
Subject: Re:   good evening
Date: Sun, 9 Jan 2011 23:07:59 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
        boundary="----=_ppstll_21_19_24"
X-Priority: 3
X-Mailer: choakmps.33
Message-ID: <5C74A867.4001970@aclighting.com>

------=_ppstll_21_19_24
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

H i                                         website: [URL unfurl="true"]http://canadianph.tz=[/URL]
hzvebp.ajwcd.ru - CanadianPharmacy
------=_ppstll_21_19_24
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=
1">
<STYLE></STYLE>
</HEAD>
<BODY>
H i                                         <br>
website: [URL unfurl="true"]http://canadianph.tzhzvebp.ajwcd.ru[/URL] - CanadianPharmacy          =


</BODY></HTML>

------=_ppstll_21_19_24--
.
 
Sort by date Sort by votes
I can't really understand what you're trying to do based off your description.

However, if you're attempting to inject some text into files, I suggest that you take a look at the module Tie::File. It will require you to learn how to process arrays, and use functions like splice. But it's probably the easiest way to get into the type of file processing I believe you're describing.

- Miller
 
Upvote 0 Downvote
What i've been trying to do is.

Grab the lines that start with ^RCPT TO: before the line that starts with ^DATA and append them to the line after the To: section.

example:

Code: 
MAIL FROM:<Megan@bankofdeerfield.com> SIZE=1016 BODY=7BIT
RCPT TO:<testuser36@testdomain.com> ******Grab this line *****
RCPT TO:<testuser22@testdomain.com> ******Grab this line *****
RCPT TO:<testuser99@testdomain.com> ******Grab this line *****
DATA
Received: from mdmcfntioehaoqtcmjdmjmcm (192.168.1.33) by wonderware.com (80.149.49.194) with Microsoft SMTP Server id 
From: "Megan" <Megan@bankofdeerfield.com>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.9) Gecko/20100921 Thunderbird/3.1.4
MIME-Version: 1.0
To: <testuser36@testdomain.com>
To: <testuser36@testdomain.com> ******moved this line *****
To: <testuser22@testdomain.com> ******moved this line *****
To: <testuser99@testdomain.com> ******moved this line *****

The only problem that I have is that once I created a regex for ^RCPT TO:...
it grabs all.

I need to be able to match up the corresponding RCPT To: lines to their respective portions of the file.

Hope that makes it clearer.
 
Upvote 0 Downvote
Take a look at the below code, it should do what you want:

Code: 
[gray]#!/usr/bin/perl[/gray]

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]
[black][b]use[/b][/black] [green]warnings[/green][red];[/red]

[black][b]use[/b][/black] [green]constant[/green] [purple]WAIT_RCPT[/purple] => [fuchsia]1[/fuchsia][red];[/red]
[black][b]use[/b][/black] [green]constant[/green] [purple]IN_RCPT[/purple]   => [fuchsia]2[/fuchsia][red];[/red]
[black][b]use[/b][/black] [green]constant[/green] [purple]WAIT_TO[/purple]   => [fuchsia]4[/fuchsia][red];[/red]
[black][b]use[/b][/black] [green]constant[/green] [purple]IN_TO[/purple]     => [fuchsia]8[/fuchsia][red];[/red]

[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$state[/blue] = WAIT_RCPT[red];[/red]
[black][b]my[/b][/black] [blue]$count[/blue] = [fuchsia]0[/fuchsia][red];[/red]

[black][b]my[/b][/black] [blue]@rcptBuffer[/blue] = [red]([/red][red])[/red][red];[/red]

[olive][b]while[/b][/olive] [red]([/red]<DATA>[red])[/red] [red]{[/red]
	[gray][i]# RCPT TO:<testuser01@testdomain.com>[/i][/gray]
	[olive][b]if[/b][/olive] [red]([/red][blue]$state[/blue] == WAIT_RCPT || [blue]$state[/blue] == IN_RCPT[red])[/red] [red]{[/red]
		[olive][b]if[/b][/olive] [red]([/red][red]/[/red][purple]^RCPT TO:(.*)[/purple][red]/[/red][red])[/red] [red]{[/red]
			[blue]$state[/blue] = IN_RCPT[red];[/red]
			[url=http://perldoc.perl.org/functions/push.html][black][b]push[/b][/black][/url] [blue]@rcptBuffer[/blue], [blue]$1[/blue][red];[/red]
			[olive][b]next[/b][/olive][red];[/red]
		[red]}[/red] [olive][b]elsif[/b][/olive] [red]([/red][blue]$state[/blue] == IN_RCPT[red])[/red] [red]{[/red]
			[blue]$state[/blue] = WAIT_TO[red];[/red]
		[red]}[/red]
	[red]}[/red]
	
	[gray][i]# To: <testuser01@testdomain.com>[/i][/gray]
	[olive][b]if[/b][/olive] [red]([/red][blue]$state[/blue] == WAIT_TO || [blue]$state[/blue] == IN_TO[red])[/red] [red]{[/red]
		[olive][b]if[/b][/olive] [red]([/red][red]/[/red][purple]^To:[/purple][red]/[/red][red])[/red] [red]{[/red]
			[blue]$state[/blue] = IN_TO[red];[/red]
		[red]}[/red] [olive][b]elsif[/b][/olive] [red]([/red][blue]$state[/blue] == IN_TO[red])[/red] [red]{[/red]
			[blue]$state[/blue] = WAIT_RCPT[red];[/red]
			
			[gray][i]# Flush Rcpt Buffer[/i][/gray]
			[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [red]"[/red][purple]To:[blue]$_[/blue][purple][b]\n[/b][/purple][/purple][red]"[/red] [olive][b]foreach[/b][/olive] [red]([/red][blue]@rcptBuffer[/blue][red])[/red][red];[/red]
			[blue]@rcptBuffer[/blue] = [red]([/red][red])[/red][red];[/red]
			
			[blue]$count[/blue]++[red];[/red]
		[red]}[/red]
	[red]}[/red]

	[black][b]print[/b][/black][red];[/red]
[red]}[/red]

[black][b]print[/b][/black] [red]"[/red][purple]---------------------EQUALS [blue]$[/blue]{count}--------------------[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]




[teal]__DATA__[/teal]
[teal]EHLO testdomain.com[/teal]
[teal]MAIL FROM:<outsideuser01@outdomain.com> SIZE=1016 BODY=7BIT[/teal]
[teal]RCPT TO:<testuser01@testdomain.com>[/teal]
[teal]RCPT TO:<testuser02@testdomain.com>[/teal]
[teal]DATA[/teal]
[teal]Received: from 1.1.1.1(helo=mvastnlufgt.mgrjofpxydauvu.info)[/teal]
[teal]        by  with esmtpa (Exim 4.69)[/teal]
[teal]        (envelope-from )[/teal]
[teal]        id 1MM6HB-1114fm-3T[/teal]
[teal]        for testuser01@testdomain.com; Sun, 9 Jan 2011 23:07:59 +0100[/teal]
[teal]From: "outsideuser01" <outsideuser01@outdomain.com>[/teal]
[teal]To: <testuser01@testdomain.com>[/teal]
[teal]Subject: Re:   good evening[/teal]
[teal]Date: Sun, 9 Jan 2011 23:07:59 +0100[/teal]
[teal]MIME-Version: 1.0[/teal]
[teal]Content-Type: multipart/alternative;[/teal]
[teal]        boundary="----=_ppstll_21_19_24"[/teal]
[teal]X-Priority: 3[/teal]
[teal]X-Mailer: choakmps.33[/teal]
[teal]Message-ID: <5C74A867.4001970@aclighting.com>[/teal]

[teal]------=_ppstll_21_19_24[/teal]
[teal]Content-Type: text/plain;[/teal]
[teal]        charset="iso-8859-1"[/teal]
[teal]Content-Transfer-Encoding: quoted-printable[/teal]

[teal]H i                                         website: [URL unfurl="true"]http://canadianph.tz=[/URL][/teal]
[teal]hzvebp.ajwcd.ru - CanadianPharmacy[/teal]
[teal]------=_ppstll_21_19_24[/teal]
[teal]Content-Type: text/html;[/teal]
[teal]        charset="iso-8859-1"[/teal]
[teal]Content-Transfer-Encoding: quoted-printable[/teal]

[teal]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">[/teal]
[teal]<HTML><HEAD>[/teal]
[teal]<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=[/teal]
[teal]1">[/teal]
[teal]<STYLE></STYLE>[/teal]
[teal]</HEAD>[/teal]
[teal]<BODY>[/teal]
[teal]H i                                         <br>[/teal]
[teal]website: [URL unfurl="true"]http://canadianph.tzhzvebp.ajwcd.ru[/URL] - CanadianPharmacy          =[/teal]


[teal]</BODY></HTML>[/teal]

[teal]------=_ppstll_21_19_24--[/teal]
[teal].[/teal]
[teal]RSET[/teal]
[teal]MAIL FROM:<Megan@bankofdeerfield.com> SIZE=1016 BODY=7BIT[/teal]
[teal]RCPT TO:<testuser36@testdomain.com>[/teal]
[teal]RCPT TO:<testuser22@testdomain.com>[/teal]
[teal]RCPT TO:<testuser99@testdomain.com>[/teal]
[teal]DATA[/teal]
[teal]Received: from mdmcfntioehaoqtcmjdmjmcm (192.168.1.33) by wonderware.com (80.149.49.194) with Microsoft SMTP Server id 8.0.685.24; Sun, 9 Jan 2011 23:08:07 +0100[/teal]
[teal]Message-ID: <4D2A2627.204070@pacunion.com>[/teal]
[teal]Date: Sun, 9 Jan 2011 23:08:07 +0100[/teal]
[teal]From: "Megan" <Megan@bankofdeerfield.com>[/teal]
[teal]User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.9) Gecko/20100921 Thunderbird/3.1.4[/teal]
[teal]MIME-Version: 1.0[/teal]
[teal]To: <testuser36@testdomain.com>[/teal]
[teal]Subject: good morning[/teal]
[teal]Content-Type: multipart/alternative;[/teal]
[teal] boundary="------------02070800106050608090806"[/teal]
[teal]X-Priority: 3[/teal]
[teal]X-Mailer: choakmps.33[/teal]
[teal]Message-ID: <5C74A867.4001970@aclighting.com>[/teal]

[teal]------=_ppstll_21_19_24[/teal]
[teal]Content-Type: text/plain;[/teal]
[teal]        charset="iso-8859-1"[/teal]
[teal]Content-Transfer-Encoding: quoted-printable[/teal]

[teal]Hi                                     website: [URL unfurl="true"]http://canadianp=[/URL][/teal]
[teal]kerur.ru - CanadianPharmacy[/teal]
[teal]------=_ppstll_21_19_24[/teal]
[teal]Content-Type: text/html;[/teal]
[teal]        charset="iso-8859-1"[/teal]
[teal]Content-Transfer-Encoding: quoted-printable[/teal]

[teal]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">[/teal]
[teal]<HTML><HEAD>[/teal]
[teal]<META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-=[/teal]
[teal]1">[/teal]
[teal]<STYLE></STYLE>[/teal]
[teal]</HEAD>[/teal]
[teal]<BODY>[/teal]
[teal]H i                                         <br>[/teal]
[teal]website: [URL unfurl="true"]http://canadianp.kerur.ru[/URL] - GermanPharmacy          =[/teal]


[teal]</BODY></HTML>[/teal]

[teal]------=_ppstll_21_19_24--[/teal]
[teal].[/teal]
[teal]RSET[/teal]
[teal]MAIL FROM:<robertson@roberts.com> SIZE=9916 BODY=7BIT[/teal]
[teal]RCPT TO:<testuser2937@testdomain.com>[/teal]
[teal]RCPT TO:<testuser22@testdomain.com>[/teal]
[teal]DATA[/teal]
[teal]Received: from testdomains (172.12.223.44) by wonderware.com (32.34.49.194) with Microsoft 23:08:07 +0100[/teal]
[teal]Message-ID: <4D2A2627.204070@pacunion.com>[/teal]
[teal]Date: Sat, 8 Jan 2011 17:18:27 +0100[/teal]
[teal]From: "Megan" <robertson@roberts.com>[/teal]
[teal]User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.9) Gecko/20100921 Thunderbird/3.1.4[/teal]
[teal]MIME-Version: 1.0[/teal]
[teal]To: <testuser2937@testdomain.com>[/teal]
[teal]Subject: morning[/teal]
[teal]Content-Type: multipart/alternative;[/teal]
[teal] boundary="------------02070800106050608090806"[/teal]
[teal]X-Priority: 3[/teal]
[teal]X-Mailer: choakmps.33[/teal]
[teal]Message-ID: <5C74A867.4001970@aclighting.com>[/teal]

[teal]------=_ppstll_21_19_24[/teal]
[teal]Content-Type: text/plain;[/teal]
[teal].[/teal]
[teal]RSET[/teal]
[tt]------------------------------------------------------------
Pragmas (perl 5.10.0) used :
[ul]
[li]constant - Perl pragma to declare constants[/li]
[li]constant - Perl pragma to declare constants[/li]
[li]constant - Perl pragma to declare constants[/li]
[li]constant - Perl pragma to declare constants[/li]
[li]strict - Perl pragma to restrict unsafe constructs[/li]
[li]warnings - Perl pragma to control optional warnings[/li]
[/ul]
[/tt]
- Miller
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

rob54321
  • Locked
  • Question
Perl how to read line from file with interpolation 1
Replies
6
Views
378
rob54321
rob54321
newbie1238585
  • Locked
  • Question
Perl how to read string in csv file * as wildcard operator
Replies
2
Views
218
mikrom
mikrom
Limbomusic
  • Locked
  • Question
Perl files getting accessed directly
Replies
0
Views
181
Limbomusic
Limbomusic
Dino_1000
  • Locked
  • Question
Use the perl debugger to dump all the data in a string variable
Replies
0
Views
164
Dino_1000
Dino_1000
ss_ham
  • Locked
  • Question
in Perl find call looking to exclude folder and ignore duplicate finds.
Replies
2
Views
212
ss_ham
ss_ham

Part and Inventory Search

Sponsor

Back
Top