It appears under OSX Perl the length value is being ignored.
This code worked under MacPerl with the old open statement being "open (THEFILE ,"<::clientd.html");".
All I changed was the open statement with a new path.
When I ask Perl OSX to print $line (the full string) I get the following...
<html>
<head> <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1"> <META HTTP-EQUIV="Pragma" CONTENT="no-cache"> <meta name="description" Content="Offline"> <title>P a u s e d</title> <meta name="generator" content="Albert Kaltenbaeck"> <meta http-equiv="refresh" content="15"> <title>O f f l i n e</title> </head> <body bgcolor="#000000"> <IMG SRC="D:\offline.gif" WIDTH=400 HEIGHT=300 ALIGN=bottom> </body> </html>
Great! it is reading the file correctly. But when I ask Perl to print $playing (using the substr command) I get the following...
ntent-type" content="text/html;charset=ISO-8859-1"> <META HTTP-EQUIV="Pragma" CONTENT="no-cache"> <meta name="description" Content="Offline"> <title>P a u s e d</title> <meta name="generator" content="Albert Kaltenbaeck"> <meta http-equiv="refresh" content="15"> <title>O f f l i n e</title> </head> <body bgcolor="#000000"> <IMG SRC="D:\offline.gif" WIDTH=400 HEIGHT=300 ALIGN=bottom> </body> </htm
It is starting at the beginning of the file and not the 6th line.
Using MacPerl I get the word "Offline" in the sixth line and hacking off the three characters on the end. (what I want)
I have tried using 167 as the offset and -3 as the length.
When I do this the starting point is correct but it does not seem to acknowledge the length value because I get the rest of the entire string.
Is there an issue now because I am using Unix line breaks and not Macintosh?
here is how I am using substr.
$. = 0;
open (THEFILE,"<../../../../Documents/ge/ClientD.html") or die "Line 96 " . (localtime) . " " . $! . "\n\n\n";
do {$line =<THEFILE>} until $. == 6 || eof;
close (THEFILE);
$playing = substr($line,35,-3);
Albert
