목록PERL (3)
yc0325lee
# Getopt # See copyright, etc in below POD section. ###################################################################### package Verilog::Getopt; require 5.000; require Exporter; use strict; use vars qw($VERSION $Debug %Skip_Basenames); use Carp; use IO::File; use File::Basename; use File::Spec; use Cwd; ###################################################################### #### Configuration ..
# vim: ft=perl ts=4 sw=4 tw=999 expandtab noma #----------------------------------------------------------------------------- # easy to forget.pl use strict; use warnings; # ---------------------------------- # 1. Modifying the contents of array my @array = ( 1, 2, 3, 4, 5 ); print "Before : @array\n"; # 1 2 3 4 5 foreach my $item ( @array ) { $item *= 10; } print "After : @array\n"; # 10 20 30 ..
- Addon packages Text-CSV-2.02 Text-Table-Tiny-1.03 Unicode-EastAsianWidth-12.0 String-TtyLength-0.03 Ref-Util-0.204 # vim: ft=perl ts=4 sw=4 tw=999 expandtab # ---------------------------------------------------------------------------- # - file : Meridian__README.pm # - author : yc0325lee # - created : 2022-10-23 13:29:14 by lee2103 # - modified : 2022-10-23 13:29:14 by lee2103 # - description..