my $loc = index($content, 'token'); # find start of token in entire string
my $str = substr $content, $loc + 12, 19; # get text starting at value and ending at >
$str =~ m/'(.*?)'/; # get text between single quotes
my $result = $1; # move text into variable result
If someone can refine this please feel free to post it. Thank you.
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 Replies)
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 Replies)
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 {
... (2 Replies)
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... (1 Reply)
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 (3 Replies)
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... (3 Replies)
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";
}... (2 Replies)
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"}'
... (4 Replies)
awk '/^>/{id=$0;next}length>=7 { print id, "\n"$0}' Test.txt
Can I use substr to achieve the same task?
Thanks! (8 Replies)
Discussion started by: Xterra
8 Replies
LEARN ABOUT REDHAT
wcstok
WCSTOK(3) Linux Programmer's Manual WCSTOK(3)NAME
wcstok - split wide-character string into tokens
SYNOPSIS
#include <wchar.h>
wchar_t *wcstok(wchar_t *wcs, const wchar_t *delim, wchar_t **ptr);
DESCRIPTION
The wcstok function is the wide-character equivalent of the strtok function, with an added argument to make it multithread-safe. It can be
used to split a wide-character string wcs into tokens, where a token is defined as a substring not containing any wide-characters from
delim.
The search starts at wcs, if wcs is not NULL, or at *ptr, if wcs is NULL. First, any delimiter wide-characters are skipped, i.e. the
pointer is advanced beyond any wide-characters which occur in delim. If the end of the wide-character string is now reached, wcstok
returns NULL, to indicate that no tokens were found, and stores an appropriate value in *ptr, so that subsequent calls to wcstok will con-
tinue to return NULL. Otherwise, the wcstok function recognizes the beginning of a token and returns a pointer to it, but before doing
that, it zero-terminates the token by replacing the next wide-character which occurs in delim with a L'