Loading ...
Sorry, an error occurred while loading the content.

Re: [PBML] HELP REQUIRED

Expand Messages
  • Abdul
    change your file to unix format(I saw the ^character... Argument 72795^I230 ) Mirza Abdullah Jan wrote:
    Message 1 of 9 , Apr 30, 2007
    • 0 Attachment
      change your file to unix format(I saw the ^character... Argument "72795^I230 )


      Mirza Abdullah Jan <jan576pk@...> wrote: when use "ne" gives same warning messages........

      Thiago Nascimento <nascimenthiago@...> wrote: Clue: change the "!=" operator in the conditional statement; use the "ne"
      operator.

      On 4/30/07, Mirza Abdullah Jan <jan576pk@...> wrote:
      >
      >
      > This is my code..........
      >
      > # !/usr/local/bin/perl -w
      >
      > use warnings;
      > # use strict;
      > #use diagnostics -verbose;
      >
      > my $datafile = "data.txt";
      > open(FILEHANDLE,"$datafile");
      > @fdata = <FILEHANDLE>;
      >
      > $tsize = (@fdata);
      > my $v=0;
      > my $u=0;
      >
      > for($u=0;$u<=$tsize;$u++)
      > {
      >
      > if($fdata[$u] != '#')
      >

      {
      > $datain[$v] = $fdata[$u];
      >
      > $v = $v + 1;
      >
      > }
      > else
      > {
      > $u = $u+1;
      > }
      > }
      >
      > When is execute this code , i get following error........
      >
      > Argument "72795^I230\n" isn't numeric in numeric ne (!=) at abc.pl line
      > 206, <FILEHANDLE> line 1466.
      > Argument "72850^I232\n" isn't numeric in numeric ne (!=) at abc.pl line
      > 206, <FILEHANDLE> line 1466.
      > Argument "72913^I231\n" isn't numeric in numeric ne (!=) at abc.pl line
      > 206, <FILEHANDLE> line 1466.
      >
      > Please help me how to fiugre out this error.......my data file contain the
      > data like this.
      >
      > 12 230
      > 45 250
      > 75 250
      >
      > and so on.............
      >
      > ---------------------------------
      > Ahhh...imagining that irresistible "new car" smell?
      > Check outnew cars at Yahoo! Autos.
      >
      > [Non-text portions of this message have been removed]
      >
      >
      >

      --
      Thiago Nascimento
      perl -e '$_="tMM naaCt Feocmama_itpUilucoGa";$_.=$1,print $2 while
      s/(..)(.)//;print substr$_,1,1;'
      "...just because I don't know the meaning of my art, does not mean it has no
      meaning..." S.D.

      [Non-text portions of this message have been removed]





      ---------------------------------
      Ahhh...imagining that irresistible "new car" smell?
      Check outnew cars at Yahoo! Autos.

      [Non-text portions of this message have been removed]






      ---------------------------------
      Ahhh...imagining that irresistible "new car" smell?
      Check outnew cars at Yahoo! Autos.

      [Non-text portions of this message have been removed]
    Your message has been successfully submitted and would be delivered to recipients shortly.