Hi,
Can anyone help me to find regular expression for the following in Perl?
"The string can only contain lower case letters (a-z) and no more than one of any letter."
For example: "table" is accepted, whether "dude" is not.
I have coded like this:
$str = "table";
if ($str =~ m/\b()\b/) {... (4 Replies)
I have got numbers like
l255677
l376039
l188144
l340482
l440700
l254113
to match the numbers starting with '13' what would be the regex
=~/13(.*)/ =======>This is not working ....
But for user123,user657
regex =~/user(.*)/ ========>works
Thanks for help..!! (7 Replies)
I am having trouble parsing rpm filenames in a shell script.. I found a snippet of perl code that will perform the task but I really don't have time to rewrite the entire script in perl. I cannot for the life of me convert this code into something sed-friendly:
if ($rpm =~ /(*)-(*)-(*)\.(.*)/)... (1 Reply)
Hi,
I get the following when I cat a file *.log
xxxxx
=====
dasdas gwdgsg fdsagfsag agsdfag
=====
random data
=====
My output should look like :
If the random data after the 2nd ==== is null then OK should be printed else
the random data should be printed.
How do I go about this... (5 Replies)
HI,
I'm new to perl and need simple regex for reading a file using my perl script.
The text file reads as -
filename=/pot/uio/current/myremificates.txt
certificates=/pot/uio/current/userdir/conf/user/gamma/settings/security/... (3 Replies)
Hi Guys
I have the following regex
$OSRELEASE = $1 if ($output =~ /(Mac OS X (Server )?10.\d)/);
output is currently
Mac OS X 10.7.5
when the introduction of Mac 10.8 output changes to
OS X 10.8.2
they have dropped the Mac bit so i changed the regex to be (2 Replies)
Hello folks,
Looking for a quick help on regex in my perl script.
here's the string i want to parse and get the 2nd field out of it.
$str = " 2013-08-07 12:29 Beta ACTIVE";
I want to extract 'Beta' out of this string. This string will keep on changing... (2 Replies)
Could anyone please make me understand how the ?= works below ..
After executing this I am getting the same output.
$string="I love chocolate.";
$string =~ s/chocolate(?= ice)/vanilla/;
print "$string\n"; (2 Replies)
Hi all,
i have the following line in a record file :
retenu=non
demande=non
script=#vtbackup /path=/save/backup/demande
position=140+70
and i want to use Perl regex to have the following output
key : "retenu" value : "non"
key : "demande" value "non"
key : "script" value :... (2 Replies)
I am not a big expert in regex and have just little understanding of that language.
Could you help me to understand the regular Perl expression:
^(?!if\b|else\b|while\b|)(?:+?\s+){1,6}(+\s*)\(*\) *?(?:^*;?+){0,10}\{
------
This is regex to select functions from a C/C++ source and defined in... (2 Replies)
Discussion started by: alex_5161
2 Replies
LEARN ABOUT DEBIAN
apache2::command
libapache2-mod-perl2-2.0.7::docs::api::Apache2::Command(User Contributed Perl Documentlibapache2-mod-perl2-2.0.7::docs::api::Apache2::Command(3pm)NAME
Apache2::Command - Perl API for accessing Apache module command information
Synopsis
use Apache2::Module ();
use Apache2::Command ();
my $module = Apache2::Module::find_linked_module('mod_perl.c');
for (my $cmd = $module->cmds; $cmd; $cmd = $cmd->next) {
$cmd->args_how();
$cmd->errmsg();
$cmd->name();
$cmd->req_override();
}
Description
"Apache2::Command" provides the Perl API for accessing Apache module command information
API
"Apache2::Command" provides the following functions and/or methods:
"args_how"
What the command expects as arguments:
$how = $cmd->args_how();
obj: $cmd ( "Apache2::Command object" )
ret: $how ( "Apache2::Const :cmd_how constant" )
The flag value representing the type of this command (i.e. "Apache2::Const::ITERATE", "Apache2::Const::TAKE2").
since: 2.0.00
"errmsg"
Get usage message for that command, in case of syntax errors:
$error = $cmd->errmsg();
obj: $cmd ( "Apache2::Command object" )
ret: $error ( string )
The error message
since: 2.0.00
"name"
Get the name of this command:
$name = $cmd->name();
obj: $cmd ( "Apache2::Command object" )
ret: $name ( string )
The command name
since: 2.0.00
"next"
Get the next command in the chain of commands for this module:
$next = $cmd->next();
obj: $cmd ( "Apache2::Command object" )
ret: $next ( "Apache2::Command object" )
Returns the next command in the chain for this module, "undef" for the last command.
since: 2.0.00
"req_override"
What overrides need to be allowed to enable this command:
$override = $cmd->req_override
obj: $cmd ( "Apache2::Command object" )
ret: $override ( "Apache2::Const :override constant" )
The bit mask representing the overrides this command is allowed in (i.e "Apache2::Const::OR_ALL"/"Apache2::Const::ACCESS_CONF").
since: 2.0.00
For example:
use Apache2::Const -compile => qw(:override);
$cmd->req_override() & Apache2::Const::OR_AUTHCFG;
$cmd->req_override() & Apache2::Const::OR_LIMIT;
See Also
mod_perl 2.0 documentation.
Copyright
mod_perl 2.0 and its core modules are copyrighted under The Apache Software License, Version 2.0.
Authors
The mod_perl development team and numerous contributors.
perl v5.14.2 2011-02-08 libapache2-mod-perl2-2.0.7::docs::api::Apache2::Command(3pm)