Perl substr or similar help Post: 303025170

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to declare hashes in KSH similar to Perl ?

Hi, Is it possible to delcare hashes in KSH the way we do it in Perl. Like I want to declare something like: fruits="Juicy" fruits="healthy" fruits="sour" echo fruits Ofcourse this piece of code does not work in KSH. Please let me know if there is a way of doing it in KSH. ...

2. Shell Programming and Scripting

copy substr in existing string in Perl

Any clue to write something to a particular location in Perl? Suppose $line = �abc cde 1234� How to write ( example string "test") on location 4 without parsing the whole line. Output should be $line = �abctest 1234� this is not search and replace. just to add substring into...

3. UNIX for Dummies Questions & Answers

substr in perl

Let's assume that I have a file with contents delimited by pipe: "The mouse|ran up|the|clock" "May|had a|little|lamb" How would I use 'substr' to get the 3rd field. For example, "the" from the first line, and "little" from the second line? # Loop over a file and read $LINE { ...

4. UNIX for Dummies Questions & Answers

substr function in perl

Hi friends, I have written a perl code and it works fine but I am not sure tommorow it works or not, please help me. problem : When diff is 1 then success other than its failure but tomorrow its 20090401 and the enddate is 20090331. thats why I write the code this type but it does not work and...

5. Shell Programming and Scripting

20090620231013 to date format i am using substr, any simple way in perl?

Hi Everyone, $tmp="20090620231013"; $tmp = substr($tmp,0,8)." ".substr($tmp,8,2).":".substr($tmp,10,2).":".substr($tmp,12,2); So my output is: 20090620 23:10:13. I only can think substr is easy, any perl can do this just one line very simple efficient one? :eek: Thanks

6. Shell Programming and Scripting

perl file, one line code include "length, rindex, substr", slow

Hi Everyone, # cat a.txt a;b;c;64O a;b;c;d;ee;f # cat a.pl #!/usr/bin/perl use strict; use warnings; my $tmp3 = ",,a,,b,,c,,d,,e,,f,,"; open(my $FA, "a.txt") or die "$!"; while(<$FA>) { chomp; my @tmp=split(/\;/, $_); if ( ($tmp =~ m/^(64O)/i) || ($tmp...

7. Shell Programming and Scripting

Joining multiple files based on one column with different and similar values (shell or perl)

Hi, I have nine files looking similar to file1 & file2 below. File1: 1 ABCA1 1 ABCC8 1 ABR:N 1 ACACB 1 ACAP2 1 ACOT1 1 ACSBG 1 ACTR1 1 ACTRT 1 ADAMT 1 AEN:N 1 AKAP1File2: 1 A4GAL 1 ACTBL 1 ACTL7

8. Shell Programming and Scripting

Perl match multiple numbers from a variable similar to egrep

I want to match the number exactly from the variable which has multiple numbers seperated by pipe symbol similar to search in egrep.below is the code which i tried #!/usr/bin/perl my $searchnum = $ARGV; my $num = "148|1|0|256"; print $num; if ($searchnum =~ /$num/) { print "found"; }...

9. Shell Programming and Scripting

How to use if/else if with substr?

I have a command like this: listdb ID923 -l |gawk '{if (substr($0,37,1)==1 && NR == 3)print "YES" else if (substr ($0,37,1)==0 && NR == 3) print "NO"}' This syntax doesn't work. But I was able to get this to work: listdb ID923 -l |gawk '{if (substr($0,37,1)==1 && NR == 3)print "YES"}' ...

10. UNIX for Dummies Questions & Answers

Substr

awk '/^>/{id=$0;next}length>=7 { print id, "\n"$0}' Test.txt Can I use substr to achieve the same task? Thanks!

LEARN ABOUT DEBIAN

xml::grove::subst

XML::Grove::Subst(3pm)					User Contributed Perl Documentation				    XML::Grove::Subst(3pm)

NAME

       XML::Grove::Subst - substitute values into a template

SYNOPSIS

	use XML::Grove::Subst;

	# Using subst method on XML::Grove::Document or XML::Grove::Element:
	$new_grove = $source_grove->subst( ARGS );
	$new_grove = $source_grove->subst_hash( ARG );

	# Using an XML::Grove::Subst instance:
	$subster = XML::Grove::Subst->new();
	$new_grove = $subster->subst( $source_grove, ARGS );
	$new_grove = $subster->subst_hash( $source_grove, ARG );

DESCRIPTION

       "XML::Grove::Subst" implements XML templates.  "XML::Grove::Subst" traverses through a source grove replacing all elements with names
       `"SUB:XXX"' or `"SUB:key"' with their corresponding values from ARGS (a list) or ARG (a hash), repsectively.

METHODS

       $grove_obj->subst( ARGS ) =item $subster->subst( $grove_obj, ARGS )
	   Search for `"SUB:XXX"' elements, where XXX is an array index, and replace the element with the value from ARGS, a list of values.  The
	   return value is a new grove with the substitutions applied.

       $grove_obj->subst_hash( ARG ) =item $subster->subst_hash( $grove_obj, ARG )
	   Search for `"SUB:key"' elements and replace the element with the value from ARG, a hash of values.  The hash key is taken from the
	   `"key"' attribute of the `"SUB:key"' element, for example, `"<SUB:key key='foo'>"'.	The return value is a new grove with the
	   substitutions applied.

EXAMPLE

       The following template, in a file `"template.xml"', could be used for a simple parts database conversion to HTML:

	   <html>
	     <head>
	       <title><SUB:key key='Name'></title>
	     </head>
	     <body>
	       <h1><SUB:key key='Name'></title>
	       <p>Information for part number <SUB:key key='Number'>:</p>
	       <SUB:key key='Description'>
	     </body>
	   </html>

       To use this template you would first parse it and convert it to a grove, and then use `"subst_hash()"' every time you needed a new page:

	   use XML::Parser::PerlSAX;
	   use XML::Grove;
	   use XML::Grove::Builder;
	   use XML::Grove::Subst;
	   use XML::Grove::PerlSAX;
	   use XML::Handler::XMLWriter;

	   # Load the template
	   $b = XML::Grove::Builder->new();
	   $p = XML::Parser::PerlSAX->new( Handler = $b );
	   $source_grove = $p->parse( Source => { SystemId => 'template.xml' } );

	   # Apply the substitutions
	   $new_grove = $source_grove->subst_hash( { Name => 'Acme DCX-2000 Filter',
						     Number => 'N4728',
						     Description => 'The Best' } );

	   # Write the new grove to standard output
	   $w = XML::Handler::XMLWriter->new();
	   $wp = XML::Grove::PerlSAX->new( Handler => $w );
	   $wp->parse( Source => { Grove => $new_grove } );

AUTHOR

       Ken MacLeod, ken@bitsko.slc.ut.us

SEE ALSO

       perl(1), XML::Grove(3)

       Extensible Markup Language (XML) <http://www.w3c.org/XML>

perl v5.10.1							    2010-01-29						    XML::Grove::Subst(3pm)