Cfwp-fio

 view release on metacpan or  search on metacpan

lib/Cfwp/fio.pm  view on Meta::CPAN

#!/usr/bin/env perl
package Cfwp::fio;
our $VERSION = 0.04;

use Modern::Perl;

sub read_file {
    $_ = shift;
    open( IN, $_ ) or die "Can't open $_";
    my @texts = <IN>;
    close IN;
    @texts;
}

sub read_file_text {

script/cip  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;

say `curl -s cip.cc`; 

script/down  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;

$_ = $ARGV[0];
chomp;
say "Downloading $_";
`time curl -O "http://ali.ddot.cc:51179/$_" | tee /dev/null`

script/expe  view on Meta::CPAN

#!/usr/bin/perl 
use cfwp::fio;
use Modern::Perl;


say 'SUCCESS';

script/fstdown  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;

$_ = $ARGV[0];
chomp;
say "Downloading $_";
`time curl -O "http://a.ddot.cc:8899/$_" | tee /dev/null`

script/fstup  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;

$_ = $ARGV[0];
chomp;
say "Uploading $_";
`time curl --progress-bar -F "file=\@$_" 'http://a.ddot.cc:8899' | tee /dev/null`

script/ipcheck  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;
use Net::Ping;
use Term::ANSIColor qw(:constants);

my ( $ip, $port ) = @ARGV;
$ip   = '127.0.0.1' if not defined $ip;
$port = 80          if not defined $port;

$_ = `ping -c1 -W1 -i 0.2 $ip > /dev/null 2>&1 && echo "LIVE"`;

if (/live/i) {

script/up  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;

$_ = $ARGV[0];
chomp;
say "Uploading $_";
`time curl --progress-bar -F "file=\@$_" 'http://ali.ddot.cc:51179' | tee /dev/null`

test.pl  view on Meta::CPAN

#!/usr/bin/env perl
use Modern::Perl;
use Cfwp::fio qw(read_file read_file_text);

@_ = Cfwp::fio::read_file('/tmp/telegram.key');
say @_;

$_ = Cfwp::fio::read_file_text('Makefile.PL');
say; 

 view all matches for this distribution
 view release on metacpan -  search on metacpan