Perl入学式オンライン 2021 第1回お疲れ様でした

Perl入学式オンライン 2021 第1回

受講された方、サポーターの方、お疲れ様でした。講師の人です。

今回は Windows の方には事前に環境構築をお願いしており、おかげで従来の第 1 回の範囲を超えて四則演算まで到達することができました。

環境構築が間に合わなかった方、5月中旬に予定されている第 2 回まで時間があります。環境構築にチャレンジしてみませんか？

以下のテキスト、動画、そして質問等があれば Discord で Perl入学式のサポーターが回答します。

github.com

www.youtube.com

discord.com

また、講義途中でわからなくなってしまった方、 Discord で質問いただければ、サポーター陣が回答します。

ぜひ質問してください。

過去の第1回エントリ

sironekotoro.hateblo.jp

GUI と CUI

従来利用しているマウスとファイル・フォルダを操作する GUI と異なり、キーボードとコマンドで操作する CUI は戸惑うことも多いと思います。

とはいえ、プログラムを学ぶときに CUI は（今のところ）避けて通ることができません。

今回の第 1 回で、普段の GUI で行っているようなファイル作成、移動・名前変更、コピー、削除、フォルダ作成、フォルダ削除ができるようになりました。

これらのコマンドとプログラム（もちろん Perl も）を組み合わせることで、GUI では手間のかかることも簡単にできるようになります。

もちろん、初心者の方が「簡単に」できるようになるまでは時間が必要ですが、時間をかけて学べばできるようになります。

例えば、フォルダの中にあるファイル名の先頭に定型の文字、例えば「処理済_」をつけるとか・・・GUI でこれをやるとしたら結構大変だと思うんですよね。

・・・ってことで適当に課題を思いついてしまったので、適当に実装してみましたがこんな感じです。

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

# add_done.pl
# このプログラムと同じフォルダにあるファイルを対象にする
# sample ってついているファイル名のファイルの先頭に 処理済み_ という
# 提携文をつける
opendir my $DH , '.' or die;
for my $file (readdir $DH){
    next if $file !~ /sample/;

    my $newfile = "処理済み_$file";
    system "mv $file $newfile";
}
closedir $DH;