I have a large string containing about 17,500 characters and I would like to obtain the value for token. token only appears in the entire string once and is towards the end of the string at the 17,200 area but that could change. Using perl can someone assist me with obtaining the value which in this particular case is 1685540303 as shown below. The length of value can be shorter or longer but not by much. Below is a small part of the entire string. 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 PHP
strtok
STRTOK(3) 1 STRTOK(3)strtok - Tokenize stringSYNOPSIS
string strtok (string $str, string $token)
DESCRIPTION
string strtok (string $token)
strtok(3) splits a string ($str) into smaller strings (tokens), with each token being delimited by any character from $token. That is, if
you have a string like "This is an example string" you could tokenize this string into its individual words by using the space character as
the token.
Note that only the first call to strtok uses the string argument. Every subsequent call to strtok only needs the token to use, as it keeps
track of where it is in the current string. To start over, or to tokenize a new string you simply call strtok with the string argument
again to initialize it. Note that you may put multiple tokens in the token parameter. The string will be tokenized when any one of the
characters in the argument are found.
PARAMETERS
o $str
- The string being split up into smaller strings (tokens).
o $token
- The delimiter used when splitting up $str.
RETURN VALUES
A string token.
EXAMPLES
Example #1
strtok(3) example
<?php
$string = "This is an example
string";
/* Use tab and newline as tokenizing characters as well */
$tok = strtok($string, "
");
while ($tok !== false) {
echo "Word=$tok<br />";
$tok = strtok("
");
}
?>
The behavior when an empty part was found changed with PHP 4.1.0. The old behavior returned an empty string, while the new, correct,
behavior simply skips the part of the string:
Example #2
Old strtok(3) behavior
<?php
$first_token = strtok('/something', '/');
$second_token = strtok('/');
var_dump($first_token, $second_token);
?>
The above example will output:
string(0) ""
string(9) "something"
Example #3
New strtok(3) behavior
<?php
$first_token = strtok('/something', '/');
$second_token = strtok('/');
var_dump($first_token, $second_token);
?>
The above example will output:
string(9) "something"
bool(false)
NOTES
Warning
This function may return Boolean FALSE, but may also return a non-Boolean value which evaluates to FALSE. Please read the section on
Booleans for more information. Use the === operator for testing the return value of this function.
SEE ALSO split(3), explode(3).
PHP Documentation Group STRTOK(3)