04-10-2006
I don't think $1 will contain the key name..... may be you can try with $_
replace $enabled_yn{$1} with $enabled_yn{$_}
or you can declare a variable to be more clear
for my $k1 (keys %enabled_yn) {
if ($enabled_yn{$k1} =~ m/\s+Y/) {
$html =~ s/%(\w+)%/\<b\>\<font color\=orange\>$enabled_yn{$k1}\<\/font\>\<\/b\>/g;
} else {
$html =~ s/%(\w+)%/$enabled_yn{$k1}/g;
}
}
I have not tested... try
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello
I got the below one from in one of this forums
For Ex: Loading File System Networking in nature
now i need to extract the patterns between the words File and Networking :
i.e. sample output: System
cmd used : cat <file> | sed 's/.*File //' | sed 's/Closing.*$//'
Actually... (0 Replies)
Discussion started by: maxmave
0 Replies
2. Shell Programming and Scripting
Hello experts,
I have a file containing the following text(shortened here).
File Begin
----------
< # Billboard.d3fc1302a677.imagePath=S:\\efcm_T4
< Billboard.d3fc1302a677.imagePath=S:\\efcm_T4
---
> # Billboard.d3fc1302a677.imagePath=S:\\efcm_Cassini
>... (2 Replies)
Discussion started by: nmattam
2 Replies
3. Shell Programming and Scripting
Hi experts,
I have many occurances of the following headers in a file. I need to grep for the word changed/inserted in the header, calculate the difference between the two numbers and list the count incrementally.
Headers in a file look like this:
-------------------
---------------------... (6 Replies)
Discussion started by: nmattam
6 Replies
4. UNIX for Advanced & Expert Users
Hi Everyone,
Can anyone help me how do i call hash variable in to sql query in perl. Please see the script below
i have defined two Hash %lc and %tab as below
$lc{'REFF'}='V_RES_CLASS';
$lc{'CALE'}='V_CAP_CLASS';
$lc{'XRPD'}='V_XFMR_CLASS';
$tab{'V_RES_CLASS'}='V_MFR_SERS';... (6 Replies)
Discussion started by: jam_prasanna
6 Replies
5. Shell Programming and Scripting
I am doing a file patterhn matching for a text file in PERL
I am using this,,, but it says that no file is found
$filepattern = '\d{1,4}.*A0NW9693.NDM.HBIDT.*.AD34XADJ.txt';
Can anyone help me out with Perl Pattern Matching concepts and how to do pattern matching for this txt file:... (4 Replies)
Discussion started by: msrahman
4 Replies
6. Shell Programming and Scripting
I have two variables,
my $filename = "abc_yyyy_mm_dd.txt";
my $filename1 = " abc_2011_11_07.txt";
I need to perform some operations after checking if $filename has $filename1 in it
i have used the below code,
if($filename =~ /^$filename1/)
{
----
--
} (2 Replies)
Discussion started by: irudayaraj
2 Replies
7. Shell Programming and Scripting
My log file looks as given below, its actually a huge file around 1 GB and these are some of the line:
conn=5368758 op=10628050 msgId=64 - RESULT err=0 tag=101 nentries=1 etime=0
conn=7462122 op=-1 msgId=-1 - fd=247 slot=247 LDAPS connection from 10.13.18.12:37645 to 10.18.6.45
conn=7462122... (5 Replies)
Discussion started by: sags007_99
5 Replies
8. Shell Programming and Scripting
Below is hash which contains reference to variables:
my %mandatoryFields = (
1 => \$msgtype,
2 => \$switchtype,
3 => \$card_nbr,
4 => \$natv_tran_type_code,
5 => \$amt_1
);
This... (0 Replies)
Discussion started by: som.nitk
0 Replies
9. Shell Programming and Scripting
Hi,
Is it possible in perl to have a hash defined with variables as theirs key values, like:
%account = ('username' => 'boy', 'password' => $password);
Thanks (1 Reply)
Discussion started by: zing_foru
1 Replies
10. Shell Programming and Scripting
Dear Perl users/experts,
Could somebody help me how to solve my problem, I have a hash variable that I want to convert into dot file (graphviz).
I know how to convert it to dot file but I need some modification on the output of the hash variable before convert it to dot file.
Eeach key of... (1 Reply)
Discussion started by: askari
1 Replies
LEARN ABOUT DEBIAN
petal::hash::test
Petal::Hash::Test(3pm) User Contributed Perl Documentation Petal::Hash::Test(3pm)
NAME
Petal::Hash::Test - Test and Tutorial Petal modifier
SUMMARY
Petal modifiers are snippets of code which are used to extend the expression engine capabilities. This test shows how to write your own
modifiers.
API
The modifier API is very, very simple. It consists of two elements:
The package name
Your modifier should be called Petal::Hash::<SomeThing>, where <SomeThing> is the name that you want to give to your modifier.
For example, this modifier is called Petal::Hash::Test. Petal will automatically pick it the module up and assign it the 'test:' prefix.
package Petal::Hash::Test;
use warnings;
use strict;
The method $class->process ($hash, $argument);
This class method will define the modifier in itself.
* $class is the package name of your modifier (which might come in handy if you're subclassing a modifier),
* $hash is the execution context, i.e. the objects and data which will 'fill' your template,
* $argument is whatever was after your modifier's prefix. For example, for the expression 'test:foo bar', $argument would be 'foo bar'.
In this test / tutorial we're going to write a modifier which uppercases a Petal expression.
sub process
{
my $class = shift;
my $hash = shift;
my $argument = shift;
return uc ($hash->get ($argument));
}
1;
__END__
And that's it! Simple!
AUTHOR
Jean-Michel Hiver
This module is redistributed under the same license as Perl itself.
SEE ALSO
The template hash module:
Petal::Hash
perl v5.12.4 2011-08-25 Petal::Hash::Test(3pm)