Bytes - answers

Checkbox in PERL? How I do this?

Chocolataria — Fri, 20 Nov 2009 16:33:23 GMT

Hi !!

I need a script that show me information about packages captured from a network from PCAP format to a TEXT format.

In a framework the user can select the tab of the fields, the number of fields and what these fields (destination IP, source IP, destination MAC, etc.).

How I do this?

Thanks

How to Insert Closing for Nested Elements

Rangeshram — Tue, 17 Nov 2009 08:35:41 GMT

Dear All,

I have an input without closing tags(only opening) e.g.,

input:

Expand|Select|Wrap|Line Numbers

	ADDRESSES

Abel, I. W. 34: A-443: A-3

Abzug, Bella 31: A-448: A-11

Adams. Brock 22: A-4

Albert, Carl 36: A-9

output expected;

Expand|Select|Wrap|Line Numbers

	ADDRESSES

Abel, I. W. 34: A-443: A-3

Abzug, Bella 31: A-448: A-11

Adams. Brock 22: A-4

Albert, Carl 36: A-9

Please provide me some guidance to solve this problem.

Thanks,

how to search the pattern from the given file

rasmidas — Mon, 16 Nov 2009 12:09:49 GMT

I have a text file. I need to search for two strings and replace the string for values from another line. I am attaching the text file.

The requirement is like below:

For every :61: line it will search for NOREF or NONREF string,
if anyone of these exist, this string (NOREF/NONREF) will be replaced with the string in :86: line (the only :86: line that follows :61: line) OUR REF and YOUR REF which is in bold and italic in the below example. like below NOREF will be replaced by 031CHO090928100268/9000022276

Example:
:61:090925C146,00NTRFNOREF
:86:051?00UEBERWEISUNG?109696/405?20OUR REF: 031CHO090928100268?2
1YOUR REF: 9000022276?22DEUTSCHE BANK AG FILIALE WI?23ESBADEN W
ILHELMSTR. 20-22 /?24DEUTSCHE BANK AG ZENTRALE F?25RANKFURT DB-
CHEQUE (EUROPE)?26M*PO FAV Y/DEUTDEFF510?27ZGR: RETURN OF A CHE
QUE 111

Please help me in doing this. The text file to be processed has been attached.
Thanks in advance.

Regards,
Rasmi

Find::File error: Invalid Top Directory

ezechiel — Mon, 16 Nov 2009 10:53:41 GMT

hi, I have the following error on a win server:
"Invalid Top Directory perl/lib/file/find.pm line 598

Here's the code and I'll explain what I found until now:

Expand|Select|Wrap|Line Numbers

	#!/usr/bin/perl

#

use strict;

use warnings;

use File::Find;

use MSDOS::Attrib qw(get_attribs set_attribs);
 
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst)=localtime(time);

$year = $year + 1900;           # $year 0 = real year 1900

$mon = $mon + 1;                # $month 0 = January
 
open(LOG, ">>./atd_files_$year-$mon-$mday\.txt")  or die "Can't open LOG: $!";

print LOG ("\n*****************************************      NEW LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";;

printf LOG " Script started at:\n %4d-%02d-%02d %02d:%02d:%02d\n\n", $year,$mon,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";
 
my $homedir = "E:/test_dir";

opendir (IMD, $homedir) or die "Couldn't find dir: IMD ($!)";

my @thefiles= readdir(IMD);

closedir(IMD);
 
my @dirs;

my $x=0;

my $n = 0;
 
foreach my $f (@thefiles){

        if (-d $f && $f !~ /^\.+/){

                print "$f\n";

                $dirs[$x]=$f;

                $x++;

        }

}
 
#print "@dirs\n";

find(\&wanted,  @dirs);
 
sub wanted {

        if (/Project\.atd/){

                my $attrib = get_attribs($File::Find::name);    

                if ( $attrib =~ /.H.+/){            

                        $n++;

                        print "$File::Find::name\n";

                }

        }

}
 
print ("\n\nTotal: $n files\n");
 
print ("\a");

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);

printf LOG "\n\n Script ended at:\n %4d-%02d-%02d %02d:%02d:%02d\n", $year+1900,$mon+1,$mday,$hour,$min,$sec or die "Can't write to LOG: $!";

print LOG ("\n*****************************************      END LAUNCH      *****************************************\n") or die "Can't write to LOG: $!";

So, the problem is the $homedir

If I put "c:/blabla/blibli" as homedir, everything's ok.

I tested the same script on a 2000pro with "c:/balbla" and "d:/blabla" everything's ok.

But as soon as I put "E:/blabla" on the server, I got the error. Tested with different directories on E:, everytime I got an error. Not on C: or D:
anyone got an idea? (is it a bad thing to edit with Windows Notepad?? I usually use Jext)

Additional info:
I also got the error with
C:/ ; C:/ADMIN but not with C:/ADMIN/Analyst_Projectatd_RightsHidden

I'm totally lost now!!

PDF parsing

pankajit09 — Mon, 16 Nov 2009 08:19:25 GMT

Which is the best package to parse a PDF file ?

I just want the alphanumeric data present in a PDF file.

Printing array of references to hash maps (perl newbie)

sixtyfootersdude — Sun, 15 Nov 2009 16:45:41 GMT

Good Morning!

I am a perl newbie and I think that I am struggling with references.

I have an array of references to hashes which I am trying to print. This is what I have:

Expand|Select|Wrap|Line Numbers

	
    for(my $i=0; $i<@input; $i++){

        my $hash = $input[$i];

        print "$i: \n";

        print "\t".'$hash = ';

        print $hash;

        print "\n\t".'${$hash} = ';

        print ${$hash};

        print "\n\t";        

        # print ${$hash}{author}; <- THIS DOES NOT WORK WHY?

        print "\n";
 
    }

And it prints:

Expand|Select|Wrap|Line Numbers

	
0: 

        $hash = REF(0x180e024)

        ${$hash} = HASH(0x180b3e4)
 
1: 

        $hash = REF(0x180da94)

        ${$hash} = HASH(0x180b198)
 
2: 

        $hash = REF(0x180e1c8)

        ${$hash} = HASH(0x180109c)
 
3: 

        $hash = REF(0x180e21c)

        ${$hash} = HASH(0x180e288)
 
....

I want to print:

Expand|Select|Wrap|Line Numbers

	
0:    author = XXXXXXXXXXX

# where XXXXXXXXX is the author in the first hash map.

I am not sure if this is enough info to tell you what is happening. I guess I should include the code for where I am filling the array of ref to hashes.

Expand|Select|Wrap|Line Numbers

	
# inside of a while loop:

            my $hash = {

                author => $temp[0],

                train => $temp[1],

                fileName => $temp[2],

            };    

            push(@input,\$hash);

Thank you in advance for the help. I appreciate it.

Resend password function

OzNewbie — Sun, 15 Nov 2009 05:51:45 GMT

Hi there,

I am trying to create a 'resend password' function as my members get a little confused sometimes (just as I am now!)...ah the irony!

In any case, the below code gets me to my output html template, however; I also want it to send details to the member via e-mail.

The below code gives me an e-mail and information in the subject line... but I don't know how to get information from let's say a .txt template with the message I want to say. any advice?

Here's the part that actually work's: go to www.yourstocktips.com.au/forgotpass.htm and type in "Nala" as the user name (dummy account).

Thanks!

OzNewbie

Here's the code:

Expand|Select|Wrap|Line Numbers

	
###############################

# Send password

###############################

sub pm_send_password

{

 open (DATABASE, "<${root}$database") or print $!;

 if($flocking) {flock DATABASE, 2;}
 
 while(($thisrow = ))

 {

    if ($thisrow =~ m/^$input{'login'}\|(.*)/)

     {

     &init($thisrow);

    &sendemail($values{'email'}, $from, $subject_lost_password, &tempwiz_to_from);

     $sent = 1;

     }

 }

 if($flocking) {flock DATABASE, 8;}

 close DATABASE; 

 if(!$sent){&init_errors; &err($error_message{'login not found'});exit;}

 $input{'action'} = "lost_password_sent";

 &tempwiz;

 exit;

}

what does it do undef $/;

rasmidas — Thu, 12 Nov 2009 12:22:33 GMT

Hi,
I am new to Perl and could not understand the below line from an existing Perl Code.

undef $/;

Could anyone please let me know, what does it do? Thanks in advance.

Regards...

File::Find package

pankajit09 — Thu, 12 Nov 2009 11:39:53 GMT

File::Find traverses a network folder also.

If I give \\ipaddress\dir it works but not when \\ipaddress .

How to make it traverse all the shared folders of a machine by inputting the IPAddress only?

ActivePerl ~s/ / / and ~tr/ / / and lc() not working

fheleno — Wed, 11 Nov 2009 20:39:20 GMT

Hi,
I am using Activeperl 5.10.

Its replace methods or functions do not seem working.

I need to replace every uppercase letter by its corresponding lowercase.
I used $str=~ s/A-Z/a-z/; $str=lc($str); and $str=~ s/[A-Z]/[a-z]/;

Could you help, please?

thank you

Fernando

Preserving Array Values Positions

virtualweb — Wed, 11 Nov 2009 20:30:25 GMT

Hello:

I have two lists of emails saved in flat files one email per line.

My script removes the emails in list 2 if they are present in list 1. Then reprints the email list, one email per line, back into list 2 but without the weeded out emails.

Except that when reprinting back to list 2 the order is random and I want to preserve the same order in which the emails were at first.

EXAMPLE:
if in email list 1 I have:

email_02@server.com
email_04@server.com
email_06@server.com
email_08@server.com
email_10@server.com

and if in email list 2 I have:

email_01@server.com
email_02@server.com
email_03@server.com
email_04@server.com
email_05@server.com
email_06@server.com
email_07@server.com
email_08@server.com
email_09@server.com
email_10@server.com

I want to end up with:

email_01@server.com
email_03@server.com
email_05@server.com
email_07@server.com
email_09@server.com

But Im getting :

email_09@server.com
email_03@server.com
email_07@server.com
email_05@server.com
email_01@server.com

Here is my script:

Expand|Select|Wrap|Line Numbers

	foreach (@All_Emails_1) {

chomp;
 
   if( /\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,6}/ ){

       $valid_emails{$_} = '1';
 
   }

   }

foreach(@All_Emails_2){

    chomp;

    if( $valid_emails{$_} eq '1' ){

print"($valid_emails{$_}) ($_)
";        

        delete($valid_emails{$_});

        push @repeated_emails,$_;

    }

}

my @New_All_Emails_1 = keys(%valid_emails);
 
$Back_Up_Emails_1 = 'All_Emails_BKUP.txt';

$Old_All_Emails_1 = 'All_Emails_1.txt';

$New_All_Emails_1 = 'All_Emails_1.txt';
 
rename($Old_All_Emails_1, $Back_Up_Emails_1)|| die print"Cant rename $Back_Up_Emails_1";
 
open (EMAILLIST, ">>$New_All_Emails_1") || die print"
Error: Cant open $New_All_Emails_1";

flock (EMAILLIST);

foreach $email @New_All_Emails_1){

print EMAILLIST "$email\n";

}

flock (EMAILLIST, 8);

close (EMAILLIST);

Thanx for your help
virtualweb

How to return a value of a variable from shell script to perl script

babp — Wed, 11 Nov 2009 19:08:57 GMT

HI ,
Is there any way to return a value of variable from shell to perl script.

Code:
===

Expand|Select|Wrap|Line Numbers

Perl file

my $diff1=system("sh diff.sh");

my $diff2=system("sh diff1.sh");

I need exit status of below commands

i.e 0 and 1 respectively.

Since in both the cases diff is working so system command will return 0 .

Expand|Select|Wrap|Line Numbers

diff1.sh

-------

a=diff aaa ccc

diff.sh

--------

b=diff aaa bbb

122 $> cat aaa

1hi hello

123 $> cat bbb

hi hello

125 $ cat ccc

1hi hello

120 $ diff aaa ccc

echo $?

diff aaa bbb

1c1

< 1hi hello

---

> hi hello

Exit 1

echo $?

1

RSS Parsing with Perl

gpraghuram — Wed, 11 Nov 2009 08:56:13 GMT

HI,
yesterday i posted a question on XSL transformation and i was able to solve that.
Now my question is on RSS parsing.
I tried using XML::RSS and was trying to install the module.
There are many dependencies and i was not able to install the module.
Anybody have an idea on which other module to use other than XML::RSS?

Raghu

iso 8859-2 input in cmd.exe as input for ActivePerl

pknezel — Tue, 10 Nov 2009 14:43:24 GMT

Hello,

I have a txt file with Spanish:Hungarian words separated by colon.
How can I achieve that East European characters are taken correctly as input
in cmd.exe and compared with the lines in the txt file?

Regard,

Peter

++++++++++++++++++
System--->Windows XP
Perl---> ActivePerl
++++++++++++++++++

Extracting Data from XML using XSL

gpraghuram — Tue, 10 Nov 2009 03:04:30 GMT

Hi,
I want to know how to extract information from a XML file using a XSL style sheet using perl.
I have alreday written a XSL for a XML file.
My requirement is to apply this XSL on the xml which in turn gives me a csv output.
Which module shuld i use for this?
Thanks
Raghu