Skip to content

Instantly share code, notes, and snippets.

@dvnmk
Created September 15, 2015 16:03
Show Gist options
  • Select an option

  • Save dvnmk/6120a1a995e8e7fc55d0 to your computer and use it in GitHub Desktop.

Select an option

Save dvnmk/6120a1a995e8e7fc55d0 to your computer and use it in GitHub Desktop.

Revisions

  1. dvnmk created this gist Sep 15, 2015.
    11 changes: 11 additions & 0 deletions probl.pl
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,11 @@
    pi@startx ~ $ cat probe.pl
    #!/usr/bin/perl
    $file_name = "tex.txt";
    open(TEXT, $file_name);
    $out_string = <TEXT>;
    close (TEXT);
    @ascii_character_numbers = unpack("C*", "$out_string");

    print "@ascii_character_numbers\n";

    #exit;