AnaTofuZ

use strict;
use warnings;
use Encode;
use utf8;

# FizzBuzz問題です。
# 1行1個、1から2000までの数を表示してください。
# ただし、3の倍数の場合は「Fizz」、5の倍数の場合は「Buzz」と表示してください。
# また、7の倍数の場合は数字の代わりに「セブン」、11の倍数のときは数字の代わりに「イレブン」と表示してください。
# ただし、3と5両方の倍数の場合は数字の代わりに「FIzzBuzz」、7と11の両方の倍数の場合は数字の代わりに 「セブンイレブン」、3と5と7と11全ての倍数の場合は「いい気分」と表示してください。

AnaTofuZ

BootStrap: docker
From: debian:11-slim

%post
    apt update -y && apt upgrade -y
    apt install -y curl
    curl -s https://install.speedtest.net/app/cli/install.deb.sh | bash
    apt install -y speedtest

%runscript

AnaTofuZ

自己紹介

• 八雲アナグラ(@AnaTofuZ)
• (3月まで)沖縄の(３月まで)学生
  • Perlで修論を通した
  • 4月からは社会に放出されます
  • 本州にも放出されます

LT

• Perl処理系をよむRTA

AnaTofuZ

#!/usr/bin/env perl
use strict;
use warnings;


my $max_height = shift;
my $max_width = shift;

AnaTofuZ

+ikoma+anatofuz$ perl -MO=Concise test.pl
w  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter v ->2
2     <;> nextstate(main 6 test.pl:11) v:*,&,{,x*,x&,x$,$ ->3
5     <2> sassign vKS/2 ->6
3        <$> const(IV 10) s ->4
4        <0> padsv[$a:6,13] sRM*/LVINTRO ->5
6     <;> nextstate(main 7 test.pl:12) v:*,&,{,x*,x&,x$,$ ->7
9     <2> sassign vKS/2 ->a
7        <$> const(IV 20) s ->8

AnaTofuZ

#!/bin/sh

function connect(){
  for i in `seq 1 $1`
  do
    echo "${i}" >> result.txt
  done
}

connect 10

AnaTofuZ

#!/usr/bin/env perl
use strict;
use warnings;

#以下のように、 $data に人物名と好きな食べ物がハッシュで与えられています。 食べ物が何回出現したか表示してください。

my %data = (
    alice => 'sushi',
    bob   => 'soba',
    carol => 'sushi',

AnaTofuZ

FROM anatofuz/perl-1.0:latest

COPY ./perl_1.pl /
ENTRYPOINT ["/usr/local/bin/perl","/perl_1.pl"]

AnaTofuZ

use strict;
use warnings;

while (my $line = <DATA>){
    if ($line =~ /(<h2(.*?)>(.*?)<\/h2>)|(<p pno=(.*?)>(.*?)<\/p>)/){
        print "$1\n";
    }
}

__DATA__

AnaTofuZ

extern int printf(const char *,...);

int *f() {
    int i = 6;
    printf("in f %d\n", i);
    printf("in f %p\n", &i);
    return &i;
}
 
int *g() {