Sponsored Content
Full Discussion: Perl substr or similar help
Top Forums Shell Programming and Scripting Perl substr or similar help Post 303025182 by azdps on Friday 26th of October 2018 07:59:04 AM
Old 10-26-2018
From my OpenBSD firewall I use PERL to reboot my cable modem around 3:00 am. I do this daily to obtain a new IP from my ISP otherwise I end up with a static IP for weeks. The procedure I use:

Send modem GET command with username and password to login. (unable to send a POST only GET)
After login send GET command to get webpage (HTML) that contains the sessionKey.
Note: I parse this page using PERL to get the sessionKey. (token value)
Send POST command to modem with sessionKey and reboot command to reboot modem. (sessionKey is required)

PERL is installed in the base install of OpenBSD. So I use this along with PERL module HTTP::Tiny to achieve the above. I was using PERL module HTML::TokeParser::Simple to parse the webpage (HTML) from the GET command I send to obtain the sessionKey (token value) that I send in my POST command.

The reason I asked the question reference parsing the HTML using PERL is that by default HTML::TokeParser::Simple isn't installed on OpenBSD by default and I had to install that as a package. I was just trying to find another means.
This User Gave Thanks to azdps For This Post:
 

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 Replies)
Discussion started by: tipsy
2 Replies

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 Replies)
Discussion started by: jaivipin
3 Replies

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 { ... (2 Replies)
Discussion started by: ChicagoBlues
2 Replies

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... (1 Reply)
Discussion started by: tukuna82
1 Replies

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 (3 Replies)
Discussion started by: jimmy_y
3 Replies

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... (3 Replies)
Discussion started by: jimmy_y
3 Replies

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 (4 Replies)
Discussion started by: seqbiologist
4 Replies

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"; }... (2 Replies)
Discussion started by: kar_333
2 Replies

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"}' ... (4 Replies)
Discussion started by: newbie2010
4 Replies

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! (8 Replies)
Discussion started by: Xterra
8 Replies
HTML::PullParser(3)					User Contributed Perl Documentation				       HTML::PullParser(3)

NAME
HTML::PullParser - Alternative HTML::Parser interface SYNOPSIS
use HTML::PullParser; $p = HTML::PullParser->new(file => "index.html", start => 'event, tagname, @attr', end => 'event, tagname', ignore_elements => [qw(script style)], ) || die "Can't open: $!"; while (my $token = $p->get_token) { #...do something with $token } DESCRIPTION
The HTML::PullParser is an alternative interface to the HTML::Parser class. It basically turns the HTML::Parser inside out. You associate a file (or any IO::Handle object or string) with the parser at construction time and then repeatedly call $parser->get_token to obtain the tags and text found in the parsed document. The following methods are provided: $p = HTML::PullParser->new( file => $file, %options ) $p = HTML::PullParser->new( doc => $doc, %options ) A "HTML::PullParser" can be made to parse from either a file or a literal document based on whether the "file" or "doc" option is passed to the parser's constructor. The "file" passed in can either be a file name or a file handle object. If a file name is passed, and it can't be opened for reading, then the constructor will return an undefined value and $! will tell you why it failed. Otherwise the argument is taken to be some object that the "HTML::PullParser" can read() from when it needs more data. The stream will be read() until EOF, but not closed. A "doc" can be passed plain or as a reference to a scalar. If a reference is passed then the value of this scalar should not be changed before all tokens have been extracted. Next the information to be returned for the different token types must be set up. This is done by simply assosiating an argspec (as defined in HTML::Parser) with the events you have an interrest in. For instance, if you want "start" tokens to be reported as the string 'S' followed by the tagname and the attributes you might pass an "start"-option like this: $p = HTML::Parser-New( doc => $doc_to_parse, start => '"S", tagname, @attr', end => '"E", tagname', ); At last other "HTML::Parser" options, like "ignore_tags", and "unbroken_text", can be passed in. Note that you should not use the event_h options to set up parser handlers. $token = $p->get_token This method will return the next token found in the HTML document, or "undef" at the end of the document. The token is usually returned as an array reference. The content of this array match the argspec set up during "HTML::PullParser" construction. $p->unget_token($token,...) If you find out you have read too many tokens you can push them back, so that they are returned again the next time $p->get_token is called. EXAMPLES
The 'eg/hform' script shows how we might parse the form section of HTML::Documents using HTML::PullParser. SEE ALSO
HTML::Parser, HTML::TokeParser COPYRIGHT
Copyright 1998-2001 Gisle Aas. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.8.0 2001-04-02 HTML::PullParser(3)
All times are GMT -4. The time now is 12:49 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy