<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="FeedCreator 1.8" -->
<?xml-stylesheet href="https://wiki.alukardd.org/lib/exe/css.php?s=feed" type="text/css"?>
<rss version="2.0">
    <channel xmlns:g="http://base.google.com/ns/1.0">
        <title>Alukardd Wiki - notes:scripts</title>
        <description></description>
        <link>https://wiki.alukardd.org/</link>
        <lastBuildDate>Tue, 28 Jul 2026 12:38:32 +0000</lastBuildDate>
        <generator>FeedCreator 1.8</generator>
        <image>
            <url>https://wiki.alukardd.org/lib/exe/fetch.php?media=wiki:dokuwiki.svg</url>
            <title>Alukardd Wiki</title>
            <link>https://wiki.alukardd.org/</link>
        </image>
        <item>
            <title>dmesg_reader.pl</title>
            <link>https://wiki.alukardd.org/doku.php?id=notes:scripts:dmesg_reader.pl&amp;rev=1392973123&amp;do=diff</link>
            <description>Скрипт выводит dmesg с нормальным timestamp&#039;ом, в новых версиях есть ключ dmesg -T
#!/usr/bin/perl

use strict;
use warnings;

my @dmesg_new = ();
my $dmesg = &quot;/bin/dmesg&quot;;
my @dmesg_old = `$dmesg`;
my $now = time();
my $uptime = `cat /proc/uptime | cut -d&quot;.&quot; -f1`;
my $t_now = $now - $uptime;

sub format_time {
 my @time = localtime $_[0];
 $time[4]+=1;    # Adjust Month
 $time[5]+=1900;    # Adjust Year
 return sprintf &#039;%4i-%02i-%02i %02i:%02i:%02i&#039;, @time[reverse 0..5];
}

foreach my $line ( @…</description>
            <author>anonymous@undisclosed.example.com (Anonymous)</author>
            <pubDate>Fri, 21 Feb 2014 08:58:43 +0000</pubDate>
        </item>
    </channel>
</rss>
