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

Re: [PBML] Bits and Bytes

Expand Messages
  • Hans Ginzel
    Hallo, ... hier spricht man English? We should speek english here. ... my($WhereIam, $CmdName) = $0 =~ m#^(.*[/ ]|[A-Z] :)?(.+)$#i; $opt{debug}++; # debug
    Message 1 of 3 , Jan 3 1:16 AM
      Hallo,

      On Fri, Jan 03, 2003 at 08:52:09AM -0000, ikarus196912 <reinhart.gruessl@...> wrote:
      > Hallo Leute! Ich heiße Reinhart und beginne gerade, mich mit PERL
      > auseinanderzusetzen. Womit ich im Moment kämpfe ist folgendes:

      hier spricht man English? We should speek english here.

      > Ich habe aus einer Datei mit der Funktion
      > read DATEI, $inhalt, 4

      my($WhereIam, $CmdName) = $0 =~ m#^(.*[/\\]|[A-Z]\:)?(.+)$#i;

      $opt{debug}++; # debug this code

      $DATEI = 'file.bin';
      open DATEI, $DATEI or
      die "$CmdName: Cannot open file `$DATEI': $!.\n";

      $len = 4;
      read DATEI, $contetnt, $len == $len or
      die "$CmdName: Cannot read data from `$DATAI': $!.\n";

      @bytes = unpack "C$len", $contetnt;
      warn "byte1=$bytes[0]\n" if $opt{debug};

      > mache? Vielen Dank im Voraus!

      Hope, it helps. Read perldoc -f pack; perldoc -f unpack;

      Hans
    • ikarus196912 <reinhart.gruessl@bawag.com>
      Thank you Hans for your hints! Regards, Reinhart
      Message 2 of 3 , Jan 3 1:46 AM
        Thank you Hans for your hints!

        Regards, Reinhart

        --- In perl-beginner@yahoogroups.com, Hans Ginzel <hans@m...> wrote:
        > Hallo,
        >
        > On Fri, Jan 03, 2003 at 08:52:09AM -0000, ikarus196912
        <reinhart.gruessl@b...> wrote:
        > > Hallo Leute! Ich heiße Reinhart und beginne gerade, mich mit PERL
        > > auseinanderzusetzen. Womit ich im Moment kämpfe ist folgendes:
        >
        > hier spricht man English? We should speek english here.
        >
        > > Ich habe aus einer Datei mit der Funktion
        > > read DATEI, $inhalt, 4
        >
        > my($WhereIam, $CmdName) = $0 =~ m#^(.*[/\\]|[A-Z]\:)?(.+)$#i;
        >
        > $opt{debug}++; # debug this code
        >
        > $DATEI = 'file.bin';
        > open DATEI, $DATEI or
        > die "$CmdName: Cannot open file `$DATEI': $!.\n";
        >
        > $len = 4;
        > read DATEI, $contetnt, $len == $len or
        > die "$CmdName: Cannot read data from `$DATAI': $!.\n";
        >
        > @bytes = unpack "C$len", $contetnt;
        > warn "byte1=$bytes[0]\n" if $opt{debug};
        >
        > > mache? Vielen Dank im Voraus!
        >
        > Hope, it helps. Read perldoc -f pack; perldoc -f unpack;
        >
        > Hans
      Your message has been successfully submitted and would be delivered to recipients shortly.