08-18-2010
Quote:
Originally Posted by
jacki
Thanks Tyler
Your the man!!
Can you explain a little about this line -
m{^"(.+apps.*)"\s*=\s*"(http://.*?/).*"} and $x{$1} = "\"$2$append\"";
specially "\"$2...
perlre - perldoc.perl.org
Each ( ) pair creates a backreference that can later be accessed (until next regex) using $1, $2, $3 ... $n. So, the first ^"(.+apps.*)"\s*= captures everything after the first double-quotes until before the last double-quotes, that which comes before zero or more amount of spaces and literal =. After that again the undetermined amount of spaces and single double-quotes. After that it practically the same thing with the URI as it was with the "key", except that he uses .*? to make * ungreedy in the capture. Without ungreedy matching more than the hostname would have been captured.
Using and is a short-hand so he doesn't have to wrap the m{} in an if-block. In $x{$1} he's using the first backreference as key in the hash, and "\"$2$append\"" means interpolating two values, $2 (2nd backreference) and $append into a single string surrounded by double-quotes.
This User Gave Thanks to ikki For This Post:
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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
2. Shell Programming and Scripting
Hi ,
This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated.
use Time::Local;
my $d = $ARGV;
my $t = $ARGV;
my $m = "";
@d = split /\//, $d;
@t = split /:/, $t;
if ( $d eq "Jan" ) { $m = 0 }... (7 Replies)
Discussion started by: akil
7 Replies
3. Shell Programming and Scripting
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
4. Shell Programming and Scripting
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
5. Shell Programming and Scripting
I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense.
... (4 Replies)
Discussion started by: kittyluva2
4 Replies
6. Shell Programming and Scripting
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. UNIX for Advanced & Expert Users
we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module
i can't find with instmodsh in the inventory for installed Perl modules.
- i have learned of using instmodsh command : i find out what modules are already installed on my system.
... (0 Replies)
Discussion started by: bora99
0 Replies
8. Shell Programming and Scripting
Hi all,
I have written a perl code and stored the data into Data structure using Data::Dumper module.
But not sure how to retreive the data from the Data::Dumper.
Eg.
Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ... (1 Reply)
Discussion started by: scriptscript
1 Replies
9. Programming
My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence.
I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have
... (2 Replies)
Discussion started by: alex_5161
2 Replies
10. Programming
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
LEARN ABOUT PHP
htmlspecialchars_decode
HTMLSPECIALCHARS_DECODE(3) 1 HTMLSPECIALCHARS_DECODE(3)
htmlspecialchars_decode - Convert special HTML entities back to characters
SYNOPSIS
string htmlspecialchars_decode (string $string, [int $flags = ENT_COMPAT | ENT_HTML401])
DESCRIPTION
This function is the opposite of htmlspecialchars(3). It converts special HTML entities back to characters.
The converted entities are: &, " (when ENT_NOQUOTES is not set), ' (when ENT_QUOTES is set), < and >.
PARAMETERS
o $string
- The string to decode.
o $flags
- A bitmask of one or more of the following flags, which specify how to handle quotes and which document type to use. The default
is ENT_COMPAT | ENT_HTML401.
Available $flags constants
+--------------+---------------------------------------------------+
|Constant Name | |
| | |
| | Description |
| | |
+--------------+---------------------------------------------------+
| | |
| ENT_COMPAT | |
| | |
| | Will convert double-quotes and leave single- |
| | quotes alone. |
| | |
| | |
| ENT_QUOTES | |
| | |
| | Will convert both double and single quotes. |
| | |
| | |
|ENT_NOQUOTES | |
| | |
| | Will leave both double and single quotes uncon- |
| | verted. |
| | |
| | |
| ENT_HTML401 | |
| | |
| | Handle code as HTML 4.01. |
| | |
| | |
| ENT_XML1 | |
| | |
| | Handle code as XML 1. |
| | |
| | |
| ENT_XHTML | |
| | |
| | Handle code as XHTML. |
| | |
| | |
| ENT_HTML5 | |
| | |
| | Handle code as HTML 5. |
| | |
+--------------+---------------------------------------------------+
RETURN VALUES
Returns the decoded string.
CHANGELOG
+--------+---------------------------------------------------+
|Version | |
| | |
| | Description |
| | |
+--------+---------------------------------------------------+
| 5.4.0 | |
| | |
| | The constants ENT_HTML401, ENT_XML1, ENT_XHTML |
| | and ENT_HTML5 were added. |
| | |
+--------+---------------------------------------------------+
EXAMPLES
Example #1
A htmlspecialchars_decode(3) example
<?php
$str = "<p>this -> "</p>
";
echo htmlspecialchars_decode($str);
// note that here the quotes aren't converted
echo htmlspecialchars_decode($str, ENT_NOQUOTES);
?>
The above example will output:
<p>this -> "</p>
<p>this -> "</p>
SEE ALSO
htmlspecialchars(3), html_entity_decode(3), get_html_translation_table(3).
PHP Documentation Group HTMLSPECIALCHARS_DECODE(3)