Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes 'sleep'; #1秒未満のsleepを使いたい
my $PFETCH = 'pfetch';
my @LIST=('alpine','android','arch','arco','artix','centos','debian','dragonfly','elementary','fedora','freebsd','gentoo','guixsd','haiku','hyperbola','lite','linux','macos','mageia','manjaro','mint','minix','mx','netbsd','nixos','openbsd','suse','parabola','pop!_os','pureos','slackware','sunos','ubuntu','void');
print "start\n";
foreach my $dist ( sort @LIST ){
my $pfetch = `clear`;
$pfetch .= "$dist\n";
$pfetch .= `PF_INFO=ascii PF_ASCII=$dist $PFETCH`;
print $pfetch;
sleep(0.5);
}
`PF_INFO=ascii pfetch > /dev/null`; #時間調整
print "end";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.