01-09-2008
I can't make the regexp code behave as anticipated, thus the workaround.
Worse, the string match code seems fundamentally unhappy with brackets.
I'd approach comp.lang.tcl with this issue and/or check out the tclers wiki and
see if any articles are on point.
The Tcler's Wiki
The lsearch idea is a okay but forces an abstraction from one
implicit type to another without solving the underlying problem and
possibly causing others...
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have field in a file which would come with any special character, how do i check that field?
Eg: @123TYtaasa>>>/ 131dfetr_~2
In the above example, how do I add pattern for any special character on the keyboard.
Thanks (3 Replies)
Discussion started by: techmoris
3 Replies
2. 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
3. Shell Programming and Scripting
Hi,
maybe it is stupid question, but is it possible to match expression like this ? :
... // ... ( there is "//" somewhere on the line and on the end of the line there ISN'T "*/" )
I've tried something like : (in SED)
sed 's/\/\/'
but I need "*/" not to be on the end of the line ...... (2 Replies)
Discussion started by: kolage
2 Replies
4. Shell Programming and Scripting
Hello everyone,
I'm new in tcl scripting.
I'm currently studying a tcl script and came across this line:
regexp {(\d+)(\S?)} $opts match opt swi
According to my understanding, this line means to search in the opts variable for one or more digit, followed by a non-whitespace character... (2 Replies)
Discussion started by: mar85
2 Replies
5. Shell Programming and Scripting
I need some help with regexp in tcl. The following code does work if the $urlvar ends in jpg,jpeg,png or gif. Eg, protocol(http/https)://testsite.com/images/image1.jpg
if { ! } {
//Do something
}
My problem is that if the URL does not end in these extensions this regexp is of no... (1 Reply)
Discussion started by: ampak
1 Replies
6. Shell Programming and Scripting
I need to change R3.1.5 as 03015
similarly R4.1.7 as 04017
i need a single command
in tcl pls help
---------- Post updated at 05:19 PM ---------- Previous update was at 04:48 PM ----------
i had to do like this without using regexp
set old_release "R3.1.5"
... (1 Reply)
Discussion started by: Syed Imran
1 Replies
7. Shell Programming and Scripting
Hi.
I have 2 files of below format.
File1
AA~1~STEVE~3.1~4.1~5.1
AA~2~DANIEL~3.2~4.2~5.2
BB~3~STEVE~3.3~4.3~5.3
BB~4~TIM~3.4~4.4~5.4
File 2
AA~STEVE~AA STEVE WORKS at AUTO COMPANY
AA~DANIEL~AA DANIEL IS A ELECTRICIAN
BB~STEVE~BB STEVE IS A COOK
I want to match 1st and 3rd... (2 Replies)
Discussion started by: crypto87
2 Replies
8. Shell Programming and Scripting
In a tcl script I need to find a way of reading a file, and looking for a phrase ("set myvariable") and putting the word following that into a variable.
I've used a file open, and a while loop with gets to read each line from the file into a variable, and using regexp searched for the item. I'm... (1 Reply)
Discussion started by: Tonyb61
1 Replies
9. Shell Programming and Scripting
Hi,
I have written a unix expect utility "ssh-login.exp" which connects (ssh) to remote host and execute some shell script. I am calling this "ssh-login.exp" utility from another shell script.
"ssh-login.exp" takes username, password, host and shell script path to execute on remote host. All... (1 Reply)
Discussion started by: Mahesh Desai
1 Replies
10. UNIX for Beginners Questions & Answers
Hi
I am writing a TCL script to delete a certain in a file
My Input file
module bist_logic_inst(a, ab , dhd, dhdh , djdj, hdh, djjd, jdj, dhd, dhp, dk
);
input a;
input ab;
input dhd;
input djdj;
input dhd;
output hdh;
output djjd;
output jdj;
output dk; (1 Reply)
Discussion started by: kshitij
1 Replies
LEARN ABOUT DEBIAN
wiki::toolkit::formatter::multiple
Wiki::Toolkit::Formatter::Multiple(3pm) User Contributed Perl Documentation Wiki::Toolkit::Formatter::Multiple(3pm)
NAME
Wiki::Toolkit::Formatter::Multiple - Allows a Wiki::Toolkit wiki to use more than one formatter.
DESCRIPTION
A "dummy" formatter for Wiki::Toolkit. Passes methods through to other Wiki::Toolkit formatters, depending on supplied metadata.
SYNOPSIS
use Wiki::Toolkit::Formatter::Multiple;
use Wiki::Toolkit::Formatter::Pod;
use Wiki::Toolkit::Formatter::UseMod;
my $pod_fmtr = Wiki::Toolkit::Formatter::Pod->new(
node_prefix => "wiki.cgi?node=",
);
my $usemod_fmtr = Wiki::Toolkit::Formatter::UseMod->new(
node_prefix => "wiki.cgi?node=",
extended_links => 1,
allowed_tags => [ qw( p b i div br ) ],
);
my $formatter = Wiki::Toolkit::Formatter::Multiple->new(
documentation => $pod_fmtr,
discussion => $usemod_fmtr,
_DEFAULT => $usemod_fmtr,
);
my $wiki = Wiki::Toolkit->new( store => ...,
formatter => $formatter );
my $output = $wiki->format( "This is some discussion.",
{ formatter => "discussion" } );
METHODS
new
my $formatter = Wiki::Toolkit::Formatter::Multiple->new(
label_1 => Formatter1->new( ... ),
label_2 => Formatter2->new( ... ),
_DEFAULT => Wiki::Toolkit::Formatter::Default->new,
);
You may supply as many formatter objects as you wish. They don't have to be of different classes; you may just wish to, for example,
permit different HTML tags to be used on different types of pages.
The "labels" supplied as the keys of the parameter hash should be unique. When you write a node, you should store a key-value pair in
its metadata where the key is "formatter" and the value is the label of the formatter that should be used to render that node.
The "_DEFAULT" label is special - it defines the formatter that will be used for any node that does not have a "formatter" stored in
its metadata. The "_DEFAULT" formatter, if not supplied to "->new", will default to the very basic Wiki::Toolkit::Formatter::Default.
format( $raw, \%metadata )
my $output = $formatter->format( "Here is some text.", undef,
{ formatter => "discussion" } );
Uses the value of "formatter" given in the metadata to decide which of the formatter objects passed on instantiation to use, then uses
it to format the provided rawwikitext.
The "undef" second element of the parameter array in the example is there because when this is called from a Wiki::Toolkit object, the
wiki object passes itself in as the second parameter.
find_internal_links( $raw, $metadata )
SEE ALSO
Wiki::Toolkit
AUTHOR
Kake Pugh <kake@earth.li>
SUPPORT
Bug reports, questions and feature requests should go to cgi-wiki-dev@earth.li
COPYRIGHT
Copyright (C) 2003-4 Kake Pugh. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-09-25 Wiki::Toolkit::Formatter::Multiple(3pm)