Diferencias

Muestra las diferencias entre dos versiones de la página.

--- notas:start [2014/07/22 18:48] – [Notas] cayu
+++ notas:start [2014/07/22 20:03] – cayu
@@ Línea 765: / Línea 765: @@
 Ref: http://elrincondetolgalen.wordpress.com/2009/11/12/script-de-nautilus-para-anadir-una-marca-de-agua-a-una-imagen/
-===== Ver el dmesg en formato humano =====
-==== Alternativa I ====
-<code perl>
-#!/usr/bin/perl
-use strict;
-use warnings;
-my @dmesg_new = ();
-my $dmesg = "/bin/dmesg";
-my @dmesg_old = `$dmesg`;
-my $now = time();
-my $uptime = `cat /proc/uptime | cut -d"." -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 '%4i-%02i-%02i %02i:%02i:%02i', @time[reverse 0..5];
-}
-foreach my $line ( @dmesg_old )
-{
- chomp( $line );
- if( $line =~ m/\[\s*(\d+)\.(\d+)\](.*)/i )
- {
- # now - uptime + sekunden
- my $t_time = format_time( $t_now + $1 );
- push( @dmesg_new , "[$t_time] $3" );
- }
-}
-print join( "\n", @dmesg_new );
-print "\n";
-</code>
-==== Alternativa II ====
-<code perl>
-#!/usr/bin/perl -wn
-use strict;
-foreach my $line (<>) {
-    my ($uptime) = (do { local @ARGV='/proc/uptime';<>} =~ /^(\d+)\./);
-    $line=~/^\[\s*(\d+)\.\d+\](.+)/;
-    printf "[%s]%s\n", scalar localtime(time - $uptime + $1), $2;
-}
-</code>