Code-Snippet on Shafiq Alibhai

NPM actualiza todos los paquetes instalados globalmente

Sat, 22 Dec 2018 09:42:28 +0000

npm update -g

Importar un recurso al módulo Terraform

Wed, 24 Oct 2018 15:57:34 +0000

El siguiente ejemplo importará una instancia de AWS a un módulo de terraform:

terraform import module.foo.aws_instance.bar i-abcd1234

Instalar archivos de gemas Ruby

Thu, 27 Sep 2018 10:16:03 +0000

Instale las gemas en la máquina de destino desde los archivos locales:

cd /path/to/gems
gem install --force --local *.gem

Una frase: Para obtener memoria virtual disponible

Sat, 10 Dec 2011 12:43:02 +0000

vmstat -s -SM | grep "free memory" | awk -F" " '{print$1}'

Perl – carga del sistema

Tue, 07 Sep 2010 08:45:06 +0000

Para encontrar la carga del sistema, utilice el siguiente fragmento de Perl:

Carga del sistema del último minuto:

my $system_load = exec('<a class="zem_slink" title="Uptime" rel="wikipedia" href="http://en.wikipedia.org/wiki/Uptime">uptime</a> | awk -F "load average: " \'{ print $2 }\' | cut -d, -f1');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f1');

Carga del sistema de los últimos 5 minutos:

my $system_load = exec('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f2');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f2');

Carga del sistema de los últimos 15 minutos:

my $system_load = exec('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f3');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f3');

Perl – Cómo leer un archivo de texto en una variable – 6 formas de hacerlo

Mon, 15 Mar 2010 09:04:20 +0000

6 formas de leer un archivo de texto en una variable

Si está trabajando con archivos grandes, podría considerar usar File::Slurp. Es mucho más rápido que el convencional:

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  binmode FILE;
  $string = &lt;FILE>;
  close FILE;
}

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  $string = &lt;FILE>;
  close FILE;
}

open FILE, "myfile" or die "Couldn't open file: $!";
$string = join("", &lt;FILE>);
close FILE;
  
open FILE, "myfile" or die "Couldn't open file: $!";
while (&lt;FILE>){
 $string .= $_;
}
close FILE;

open( FH, "sample.txt") || die("Error: $!\n");
read(FH, $data, 2000);
close FH;

El formato de la función de lectura es: