I have a script with dynamic hash of hashes , and I want to print the entire hash (with all other hashes).
Itried to do it recursively by checking if the current key is a hash and if yes call the current function again with refference to the sub hash.
Most of the printing seems to be OK but in... (1 Reply)
Hi All
IN HPUX 11
How to delete an unwanted "core" file with a single command
which is being generated in different locations of the system
the command should be able to free up the space occupied by all "core" file
which is present in different folders and filesytems in a system
... (5 Replies)
Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below.
#!/usr/bin/perl
use warnings;
use Tie::IxHash;
use strict;
tie (my %programs, "Tie::IxHash");
while (my $line = <DATA>) {
chomp $line;
my(... (1 Reply)
Hi,
In Perl, is it possible to use a range of numbers with '..' as a key in a hash?
Something in like:
%hash = (
'768..1536' => '1G',
'1537..2560' => '2G'
);
That is, the range operation is evaluated, and all members of the range are... (3 Replies)
HI,
My input file contains below data:
DFHDR
12345110
1,200
2,-100
1,100
2,123
12345110
1,300
2,200
DFTLR
In the above data, the first line and last lines should be remove as well as the lines in which contains 110 as position(6,7,8 position) should also be removed,
How we... (0 Replies)
Hi,
I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all .
my %result (
$abc => {
'data_count' => '10',
'ID' => 'ABC122',
}
$def => {
'data_count' => '20',
'ID' => 'defASe',
... (1 Reply)
Hi,
I have a script similar to this
#!/bin/ksh
cd /orcl/bir/eod_badfiles
find ./ -type f -name "*.csv" -mtime +6 -exec rm -f {} \;
find ./ -type f -name "*.bad" -mtime +6 -exec rm -f {} \;
cd /orcl/bir
find ./ -type f -name "*.log" -mtime +6 -exec rm -f {} \;
This was working fine in one... (5 Replies)
Hi, I have a hash of hash where it has
name, activities and count
i have data like this -
$result->{$name}->{$activities} = $value;
content of that are -
name - robert tom cat peter
activities - running, eating, sleeping , drinking, work
i need to print output as below
... (3 Replies)
Discussion started by: asak
3 Replies
LEARN ABOUT DEBIAN
html::mason::escapes
HTML::Mason::Escapes(3pm) User Contributed Perl Documentation HTML::Mason::Escapes(3pm)NAME
HTML::Mason::Escapes - Functions to escape text for Mason
DESCRIPTION
This module contains functions for implementing Mason's substitution escaping feature. These functions may also be called directly.
html_entities_escape
This function takes a scalar reference and HTML-escapes it using the "HTML::Entities" module. By default, this module assumes that the
string it is escaping is in ISO-8859-1 (pre Perl 5.8.0) or UTF-8 (Perl 5.8.0 onwards). If this is not the case for your data, you will
want to override this escape to do the right thing for your encoding. See the section on User-defined Escapes in the Developer's
Manual for more details on how to do this.
url_escape
This takes a scalar reference and replaces any text it contains matching "[^a-zA-Z0-9_.-]" with the URL-escaped equivalent, a percent
sign (%) followed by the hexadecimal number of that character.
basic_html_escape
This function takes a scalar reference and HTML-escapes it, escaping the following characters: '&', '>', '<', and '"'.
It is provided for those who wish to use it to replace (or supplement) the existing 'h' escape flag, via the Interpreter's
"set_escape()" method.
This function is provided in order to allow people to return the HTML escaping behavior in 1.0x. However, this behavior presents a
potential security risk of allowing cross-site scripting attacks. HTML escaping should always be done based on the character set a
page is in. Merely escaping the four characters mentioned above is not sufficient. The quick summary of why is that for some
character sets, characters other than '<' may be interpreted as a "less than" sign, meaning that just filtering '<' and '>' will not
stop all cross-site scripting attacks. See http://www.megasecurity.org/Info/cross-site_scripting.txt for more details.
perl v5.14.2 2012-02-04 HTML::Mason::Escapes(3pm)