08-28-2006
hi i tryed your example but when i tryed to put some changes
i had some wired results i did:
my $rec = q|<input type="text" name="<% Env.get("m_n_decimalPrecision") 60 %>" id="m_n_de-cimalPrecision" maxlength="1" style="width: 20px;" value="<% m_n_user_-decimalPrecision %>">| ;
while ($rec =~ s/(<%.*?%>)/&{sub {
my $out = shift;
$out = searchAndreplace($out);
print "result".$out."\n";
}}($1)/ge) {}
sub searchAndreplace{
my $o =$_[0];
if($o =~ m/<%\s*(.+)\s*%>/){
if($o =~ m/([^%]\>|<[^%]|=|-|\*|\\|\/)/){
print "Good: $o \n";
}
}
return $out;
}
print $rec;
but i didnt get any result into the $out variable inside the while loop
why is that?
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I need help with a Perl regular expression.
The following string blows up my program: <david(greg jim)>
If I type this string, there is no problem: <david(greg_jim)> or type
david(gregjim) or type <david greg jim> the CGI program does not complain.
For some reason that I do not understand the... (1 Reply)
Discussion started by: mh53j_fe
1 Replies
2. Shell Programming and Scripting
What is the easiest way to get full address of *.jpg images from html file using perl?
example:
http://farm3.static.flickr.com/2397/2126443111_65a810004c.jpg (1 Reply)
Discussion started by: mirusnet
1 Replies
3. Shell Programming and Scripting
Hi,
I need to develop a GUI for Perl scripts which needs frequent user interactions(like getting the inputs from the user at various stages). Can anyone suggest a language to develop a GUI which is simple to use and which can be implemented within a short time frame?
Thanks,
Vishwa (1 Reply)
Discussion started by: vishwa787
1 Replies
4. Shell Programming and Scripting
Hello,
I cannot see what's wrong in my code.
When I run code below, it just print an empty string.
my $test = "SWER~~ERTGSDFGTHAS_RTAWGA_DFAS.x4-234253454.in";
if ($test = ~ m/\~{1,2}.*4/) {
print "$1\n";
}
else {
print "No match...\n";
}
Anyone know what I'm doing wrong?
... (4 Replies)
Discussion started by: urandom
4 Replies
5. Shell Programming and Scripting
Hi. Here's a tricky one (at least to me):
I have a file named theFile.txt (UTF-8) that contains the following:
a
b
cWhen I execute
perl -pe 's|a.*c|d|sg' theFile.txtin bash 3.2 on MAC OS X 10.6, I get no match, i.e. the result is
a
b
cagain. Any clues why? (2 Replies)
Discussion started by: BatManWSL
2 Replies
6. Shell Programming and Scripting
hello,
I want to replace awk with a perl one liner in unix.
i use in awk REGEX and FS ( field separator) because
awk syntaxes in different unix os versions have not the same behaviour.
Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse
i have a file named "file" and want... (5 Replies)
Discussion started by: bora99
5 Replies
7. Programming
Hi gurus, i am trying to write simple perl script using win32 ole which will iterate over all M$ word paragraphs (any text that ends with a hard return) and print only those paragraphs that matches the specified condition. The problem is that I need to access font size property. It seems to me that... (0 Replies)
Discussion started by: wakatana
0 Replies
8. Shell Programming and Scripting
Hi,
I have file like below:
1|1212|34353|5fdf 6575||dfgdg sfsdf |afsf||4|aasfbc|~1213~~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf |affsf| |4|abc|~rwarw~~asa~~~123~312313
1|1212|34353|5fdf 6575||dfgdg sfsdf |afasfs||4|aasfdbc|~564564~~~~
1|1212|34353|5fdf 6575||dfgdg sfsdf... (1 Reply)
Discussion started by: sol_nov
1 Replies
9. Shell Programming and Scripting
Hi,
I am trying with the below Perl one-liner using regular expression to extract the first and second column of a text file:
perl -p -e "s/\s*(\w+).*/$1/"
perl -p -e "s/\s*.+\s(.+)\s*/$1\n/"
whereas the text file's data looks like:
Error: terminated 2233
Warning: reboot 3434
Warning:... (3 Replies)
Discussion started by: royalibrahim
3 Replies
10. Shell Programming and Scripting
Trying to find and replace one string with another string in a file
#!/usr/bin/perl
$csd_table_path = "/file.ntab";
$find_str = '--bundle_type=021';
$repl_str = '--bundle_type=021 --target=/dev/disk1s2';
if( system("/usr/bin/perl -p -i -e 's/$find_str/$repl_str/' $csd_table_path")... (2 Replies)
Discussion started by: cillmor
2 Replies
LEARN ABOUT DEBIAN
sonotlist
SoNotList(3) Coin SoNotList(3)
NAME
SoNotList -
The SoNotList class is a list of SoNotRec notification records.
SYNOPSIS
#include <Inventor/misc/SoNotification.h>
Public Member Functions
SoNotList (void)
SoNotList (const SoNotList *nl)
void append (SoNotRec *const rec)
void append (SoNotRec *const rec, SoField *const field)
void append (SoNotRec *const rec, SoEngineOutput *const engineout)
void setLastType (const SoNotRec::Type type)
SoNotRec * getFirstRec (void) const
SoNotRec * getLastRec (void) const
SoNotRec * getFirstRecAtNode (void) const
SoField * getLastField (void) const
SoEngineOutput * getLastEngineOutput (void) const
uint32_t getTimeStamp (void) const
void print (FILE *const file=stdout) const
Detailed Description
The SoNotList class is a list of SoNotRec notification records.
Constructor & Destructor Documentation
SoNotList::SoNotList (void)
Initialize list.
SoNotList::SoNotList (const SoNotList *nl)
Copy constructor. Does a bitwise copy of the nl object (no duplication of list elements).
Member Function Documentation
void SoNotList::append (SoNotRec *constrec)
Append rec notification source to the list.
void SoNotList::append (SoNotRec *constrec, SoField *constfield)
Append rec notification source to the list, setting field as the last field having been influenced by the notification process.
void SoNotList::append (SoNotRec *constrec, SoEngineOutput *constengineout)
Append rec notification source to the list, setting engineout as the last engine output field having been influenced by the notification
process.
void SoNotList::setLastType (const SoNotRec::Typetype)
Set the type of the last notification record in the list.
SoNotRec * SoNotList::getFirstRec (void) const
Returns the first record in the list.
SoNotRec * SoNotList::getLastRec (void) const
Returns the last record in the list.
SoNotRec * SoNotList::getFirstRecAtNode (void) const
Returns the first record in the list which is derived from SoBase.
SoField * SoNotList::getLastField (void) const
Returns the last field touched by notification.
SoEngineOutput * SoNotList::getLastEngineOutput (void) const
Returns the last engine output field touched by notification.
uint32_t SoNotList::getTimeStamp (void) const
Returns the time stamp when the notification started.
void SoNotList::print (FILE *constfile = stdout) const
Dump contents of list from tail record and backwards. Only available if compiled with debug information on.
Author
Generated automatically by Doxygen for Coin from the source code.
Version 3.1.3 Wed May 23 2012 SoNotList(3)