PERL script help


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting PERL script help
# 8  
Old 09-03-2005
Quote:
Originally Posted by ZealeS
In shell, you can use diff instead.

diff is so powerful.

relative cmd like : paste, comm, join ....

thanks, I know. I was doing this on a Windows box. I had the MS SFU loaded but it didnt have diff that i could find.

Trust me that was the first thing that came to my mind..lol Smilie
# 9  
Old 09-03-2005
There is a diff for windoze. When I type
Code:
diff -v

I get
Code:
diff - GNU diffutils version 2.7

# 10  
Old 09-03-2005
wow..lol so there is..

maybe i didnt install it?? or maybe the path is messed up..


anyway. Thanks!! Oh well i guess i needed an excuse to start learning perl anyway since all i have ever used is VBScript Smilie
# 11  
Old 09-03-2005
Sorry; I didn't mean to imply that it comes with windoze. Try this site:

http://sourceforge.net/project/showf...ckage_id=16423

Instead of Perl, I recommend Ruby.
# 12  
Old 09-03-2005
Here's one way to compare two files using Ruby.

File junk:
Code:
acts_as_taggable v2 - Tagging on Steroids for Rails
Dynamic method dispatching with "send"
How to know which interface a broadcast packet comes in on?
Idiomatic conversion of yielding block to array
Lexical Casts with Ruby
MouseHole 1.1 -- rose-colored spectacles for the Web
nano & mega
rpc (not xml-rpc)
traits-0.6.0
Zip Extraction Bug?
EventLoop 0.0.20050825.1600
Intercepting, Resuming Overridden Methods
beginners YAML question
MUD Client (#45)
Thread for scheduling
Beginner: Options with YAML
compiling posgres gem fails on osx
Ruby-specific performance heuristics?
Rake: multiple prerequisites in rule?
template library - specific needs
variables in regex
Word Chains (#44)
Installing a ruby application on a linux system
Still looking for a Ruby MUD client
gmailer-0.0.8 released
Ruby-GetText-Package-1.0.0
Newbie Q: Self-Testing Ruby Files (Double Assignment to Constants)

File junk2:
Code:
Installing a ruby application on a linux system
Still looking for a Ruby MUD client
gmailer-0.0.8 released
Ruby-GetText-Package-1.0.0
traits-0.6.0
acts_as_taggable v2 - Tagging on Steroids for Rails
Zip Extraction Bug?
Lexical Casts with Ruby
rpc (not xml-rpc)
Dynamic method dispatching with "send"
MouseHole 1.1 -- rose-colored spectacles for the Web
Idiomatic conversion of yielding block to array
How to know which interface a broadcast packet comes in on?
nano & mega
EventLoop 0.0.20050825.1600
Intercepting, Resuming Overridden Methods
beginners YAML question
Ruby "Game" (Graphics & Sound) Frameworks
Thread for scheduling
Beginner: Options with YAML
compiling posgres gem fails on osx
Ruby-specific performance heuristics?
Rake: multiple prerequisites in rule?
template library - specific needs
variables in regex
Word Chains (#44)

Lines in junk that are not in junk2:
ruby -e 'puts IO.readlines($*[0]) - IO.readlines($*[1])' junk junk2
Code:
MUD Client (#45)
Newbie Q: Self-Testing Ruby Files (Double Assignment to Constants)

Lines in junk2 that are not in junk:
ruby -e 'puts IO.readlines($*[0]) - IO.readlines($*[1])' junk2 junk
Code:
Ruby "Game" (Graphics & Sound) Frameworks

# 13  
Old 09-03-2005
Quote:
Originally Posted by futurelet
Sorry; I didn't mean to imply that it comes with windoze. Try this site:

http://sourceforge.net/project/showf...ckage_id=16423

Instead of Perl, I recommend Ruby.

Well actually Diff does come with the Windows SFU package, I just didnt see it on my work box but it was on my home one. Something different i did I am sure. Anyway, thanks for all the help and I will check out Ruby.
# 14  
Old 09-19-2005
hi. im very new to perl and im learning so much through examples in this forums. i have one question about the code above:


-----
open(DATA1,"ping1.txt");
open(DATA2,"ping2.txt");

chomp( $data1 = <DATA1>);
chomp( $data2 = <DATA2>);

while ($data1 || $data2) {
if ($data1 ne $data2) {
print "<$data1\n";
print ">$data2\n";
}

chomp($data1= <DATA1>);
chomp($data2= <DATA2>);

}


---

why is it that chomp($data1=<DATA1>); has to be typed before and after the while statement? thank you very much!
Login or Register to Ask a Question

Previous Thread | Next Thread

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

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

3. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

4. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

5. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

6. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

7. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

8. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

9. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

10. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies
Login or Register to Ask a Question