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

Re: [PBML] Bits and Bytes

Expand Messages
  • ikarus196912 <reinhart.gruessl@bawag.com>
    Thank you Hans for your hints! Regards, Reinhart
    Message 1 of 3 , Jan 3, 2003
    • 0 Attachment
      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.