Backups/immortalwrt-mt798x
1
0
Fork 0
mirror of https://github.com/hanwckf/immortalwrt-mt798x.git synced 2025-01-09 02:43:53 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

scripts: xxdi.pl: remove File::Slurp dependency

Browse Source 
In order to make it more portable.

Signed-off-by: Jo-Philipp Wich <jo@mein.io>
Signed-off-by: Petr Štetiar <ynezz@true.cz>
(cherry picked from commit 8b278a76d90e3724815a5fde32be59f7796be1d8)
This commit is contained in:
Jo-Philipp Wich 2022-08-30 18:20:04 +02:00 committed by Petr Štetiar
parent 4e221757c4
commit 70124b8579
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scripts/xxdi.pl
View File

@ -14,9 +14,24 @@
use strict; use strict;
use warnings; use warnings;
use File::Slurp qw(slurp);
my $indata = slurp(@ARGV ? $ARGV[0] : \*STDIN); my $indata;
{
local $/;
my $fh;
if (@ARGV) {
open($fh, '<:raw', $ARGV[0]) || die("Unable to open $ARGV[0]: $!\n");
} else {
$fh = \*STDIN;
}
$indata = readline $fh;
close $fh;
}
my $len_data = length($indata); my $len_data = length($indata);
my $num_digits_per_line = 12; my $num_digits_per_line = 12;
my $var_name; my $var_name;