Perl substr or similar help Post: 303025169

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

html::widget::container

HTML::Widget::Container(3pm)				User Contributed Perl Documentation			      HTML::Widget::Container(3pm)

NAME

       HTML::Widget::Container - Container

SYNOPSIS

	   my $container  = $form->element('foo');

	   my $field = $container->field;
	   my $error = $container->error;
	       my $label = $container->label;

	   my $field_xml      = $container->field_xml;
	   my $error_xml      = $container->error_xml;
	   my $javascript_xml = $container->javascript_xml;

	   my $xml = $container->as_xml;
	       # $xml eq "$container"

	   my $javascript = $container->javascript;

DESCRIPTION

       Container.

METHODS

   as_xml
       Return Value: $xml

   _build_element
       Arguments: $element

       Return Value: @elements

       Convert $element to HTML::Element object. Accepts arrayref.

       If you wish to change the rendering behaviour of HTML::Widget; specifically, the handling of elements which are array-refs, you can specify
       "container_class" in HTML::Widget::Element to a custom class which just overrides this function.

   build_single_element
       Arguments: $element

       Return Value: $element

       Convert $element to HTML::Element object.

       Called by "_build_element".

       If you wish to change the rendering behaviour of HTML::Widget; specifically, the handling of an individual element, you can override this
       function.

   build_element_error
       Arguments: $element

       Return Value: $element

       Called by "build_single_element".

       If you wish to change how an error is rendered, override this function.

   build_element_label
       Arguments: $element, $class

       Return Value: $element

       Called by "build_single_element".

       If you wish to change how an element's label is rendered, override this function.

       The $class argument is the original class of the element, before "build_element_error" was called.

   as_list
       Return Value: @elements

       Returns a list of HTML::Element objects.

   element
   field
       Arguments: $element

       "field" is an alias for "element".

   element_xml
   field_xml
       Return Value: $xml

       "field_xml" is an alias for "element_xml".

   error
       Arguments: $error

       Return Value: $error

   error_xml
       Return Value: $xml

   javascript
   js
       Arguments: $javascript

       Return Value: $javascript

       "js" is an alias for "javascript".

   javascript_element
       Return Value: $javascript_element

       Returns javascript in a script HTML::Element.

   javascript_xml
   js_xml
       Return Value: $javascript_xml

       Returns javascript in a script block.

       "js_xml" is an alias for "javascript_xml".

AUTHOR

       Sebastian Riedel, "sri@oook.de"

LICENSE

       This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.10.1							    2007-03-01					      HTML::Widget::Container(3pm)