need help to write perl code


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting need help to write perl code
# 1  
Old 09-20-2006
need help to write perl code

I have 2 files , one is master file and another file i am genearting which contains Number of fails for all host & version.

The first file is master file which contains 2 column, Test Case name and Product Name:
daily/DB/attach/attach_redundancy.exp: YRS
daily/DB/help/help.exp: SiCat
daily/DB/hole_fail_rate/hfr-circular.exp: APPS
daily/DB/markerfile/narrow_space_wide_neighbor.ex YRS

The Second File : Fails.log data are like below , the ! is infront of fail record .
/users/testsuite/db/SiCat/2006-09-04/10/kracherl/run.log
! daily/DB/attach/attach_redundancy.exp:
! daily/DB/help/help.exp:
! daily/DB/hole_fail_rate/hfr-circular.exp:
! daily/DB/markerfile/narrow_space_wide_neighbor.exp:
! daily/DB/markerfile/npt.exp:
/users/testsuite/db/SiCat/2006-09-04/10_64/limo/run.log
! daily/DB/measure_stack/ms_objects_transistor.exp:
! daily/DB/network/transistor_exact_active.exp:
! daily/DB/output/error1.exp:
/users/testsuite/db/SiCat/2006-09-04/devel_64/limo/run.log
! daily/DB/hole_fail_rate/hfr-circular.exp:
! daily/DB/markerfile/cws.exp:
! daily/DB/markerfile/narrow_space_wide_neighbor.exp:

Now i want to generate the report like0
Ver Host Total YRS SiCat APPS PSD NO
10 kracherl 34 23 1 2 6 2
10_fast via2 30 18 1 2 7 2
9 optimator 36 29 1 2 4 0
Login or Register to Ask a Question

Previous Thread | Next Thread

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Read/write perl file

Hi I am trying to build a web form where it can take the input from the user and write it to a file. And when I will open that form again that for should read the file that was created at the 1st step and all the fields should auto populate from that file. I have 20 text fields in my form. I... (1 Reply)
Discussion started by: sauravrout
1 Replies

2. Shell Programming and Scripting

[Perl] Write to a file

Hai #!user/bin/perl -------- -------- print("$line.......\n"); ------- ------ I want to write inside $line into a file like run.log How i can pleasw tel me Thanks kiran (4 Replies)
Discussion started by: kiran425
4 Replies

3. Shell Programming and Scripting

Perl write and read on same file

Hi, I am trying to do a write operation followed by a read operation on the same file through Perl, expecting the output produced by read to contain the new lines added, as follows: #! /usr/bin/perl -w open FH, "+< testfile" or die "$@"; print FH "New content added\n"; while (my $line =... (1 Reply)
Discussion started by: royalibrahim
1 Replies

4. Shell Programming and Scripting

How to write a update query in perl script?

can any one suggest me on how to write a update query in perl script for Oracle database and also tell me abt how we can write a code for sending mails with report as attachment to appropriate persons? (1 Reply)
Discussion started by: Ramesh V Kumar
1 Replies

5. Programming

how to write a sub in Perl

hi, i am a really new to Perl. i have a following code that is working well. " i know this is really simple, but i cant figure out a way to do this. can someone help me please?:( (1 Reply)
Discussion started by: usustarr
1 Replies

6. Shell Programming and Scripting

PERL write to file help

Very new to perl and have an exististing script which I need to capture some variables to a log file. My below code works well, except the @cmds array has some %20 which I need replaced with a space and some <br> which needs a \n instead. I tried messing around with a foreach, but have failed. ... (6 Replies)
Discussion started by: numele
6 Replies

7. Shell Programming and Scripting

perl read and write to conf file

Hi Everyone, There is a perl file: a.pl ============ #!/usr/bin/perl my $config_file = $ARGV; open CONFIG, "$config_file" or die "Program stopping, couldn't open the configuration file '$config_file'.\n"; my $config = join "", <CONFIG>; close CONFIG; eval $config; die "Couldn't... (1 Reply)
Discussion started by: jimmy_y
1 Replies

8. Shell Programming and Scripting

perl -write values in a file to @array in perl

Hi can anyone suggest me how to write a file containing values,... say 19 20 21 22 .. 40 to an array @array = (19, 20, ... 40) -- Thanks (27 Replies)
Discussion started by: meghana
27 Replies

9. Shell Programming and Scripting

Need help to write a Perl script

Hello friends, I am having a awk script which does my goal , but I want to learn perl , after learning the basics in perl now I am trying to convert my nawk script to perl . Please help me to do some task in perl that I ve already did in nawk. Like I am facing some problem in... (10 Replies)
Discussion started by: user_prady
10 Replies
Login or Register to Ask a Question
Hash::Case::Upper(3pm)					User Contributed Perl Documentation				    Hash::Case::Upper(3pm)

NAME
Hash::Case::Upper - native hash with enforced lower cased keys INHERITANCE
Hash::Case::Upper is a Hash::Case is a Tie::StdHash SYNOPSIS
use Hash::Case::Upper; tie my(%uchash), 'Hash::Case::Upper'; $uchash{StraNGeKeY} = 3; print keys %uchash; # STRANGEKEY DESCRIPTION
Hash::Case::Upper extends Hash::Case, which lets you play various trics with hash keys. In this implementation, the fake hash is case insensitive and the keys stored in upper-case. METHODS
Constructors $obj->addHashData(HASH) See "Constructors" in Hash::Case $obj->addPairs(PAIRS) See "Constructors" in Hash::Case $obj->setHash(HASH) See "Constructors" in Hash::Case tie(HASH, 'Hash::Case::Upper', [VALUES,] OPTIONS) Define HASH to have only upper cased keys. The hash is initialized with the VALUES, specified as ref-array or ref-hash. Currently, there are no OPTIONS defined. SEE ALSO
This module is part of Hash-Case distribution version 1.02, built on March 09, 2012. Website: http://perl.overmeer.net/hash-case/ LICENSE
Copyrights 2002-2003,2007-2012 by Mark Overmeer. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html perl v5.14.2 2012-03-09 Hash::Case::Upper(3pm)