open my ($ip) = (IPlist, "iplist" or die "can't open iplist: $!");
my ($username) = 'admin';
while (@ lines = "<IPlist>")
Как использовать результаты предварительной выборки?
($fsname, $fstype) = m/\S+ (\S+) (\S+)/;
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
open my $F, '<', '/proc/mounts' or die "open() error: $!\n";
my ($fsname, $fstype, %result);
while (<$F>)
{
($fsname, $fstype) = (split /\s+/)[1, 2];
#$fsname =~ s!/!\\/!g;
push @{$result{'data'}}, {'{#FSNAME}' => $fsname, '{#FSTYPE}' => $fstype};
}
close $F;
print JSON->new->pretty->encode (\%result);
$this->load->helper('form');
$this->load->library('form_validation');
Открыв сам дамп через блокнот увидел что часть текста в нем в виде "кракозябр".