Perl:「x」演算子

2013-12-09 :  PCクリニック
本文の前に、
-・・・ -・-
現時点での、blogramのランクインカテゴリは、
3、2、2、0、0、 1、0、0、1、0(38)で、換算ポイント 60pt 。
「C言語」浮上せず、3位のまま。
なんて、書いている内に、えぇー?
「化学業界」 bg値大幅ダウンで、2位から4位に!
3、1、2、1、0、 1、0、0、1、0(38)で、換算ポイント 56pt 。
・-・ - -・

さて、本文。

最近はあまり使っていない「Active Basic」ですが、
「指定した文字列を指定した数だけ連結」する関数がある。
  String$(数,文字列)
ですね。

因みに、
  Chr$(整数)・・・指定した文字コードの文字列(1 文字)を取得
  Str$(数値)・・・指定した数値を文字列に変換
などの文字列関数もある。


それで、
最近常用している「Perl」で、
同じ事をやりたくなった。


「Perl 文字列」で検索してもなかなか見つからなかった。

そんな時、
「燈明日記」なるブログの、2008/4/6(日)付け記事に、
配列を任意の一文字で初期化するには
があった。

  @Array=();にすると各要素にアクセスする時は、未定義になります。
  では、任意の一文字で初期化するには、どうしたらよいでしょうか?
  たとえば、10個「"0"」で初期化するには、以下の感じ。
  @Array = ("0", "0", "0", "0", "0", "0", "0", "0", "0", "0");
  スマートに書くと
  @Array = ("0") x 10;
  掛け算記号にエックスを使うなんてオチャメ。
  ・・・・・

とある。

これは、<紙>に取って初目?

そうすると、
$w = join( "", ( "Z" x $n ) );    # 文字 'Z' を、$n 個繋いだ文字列
と出来る!


ここで、フト、思いついた。

$w = "0" x 5;

としたら???


あれー!!!

BASIC では、関数「String$()」が必要だが、
Perl では、演算子「x」でイイのだ。


改めて、「Perl x」で検索してみると、
いの一番に、
「京都大学」の「空間情報学講座」の、
Perl講座: 繰り返し
が見つかり、
ここの最後に、
  ・・・・・
  演算子xを用いると、文字列の繰り返しができます。
  下記の例を見て下さい。
  ・・・・・
があった。


お粗末でした。


見ていただいた序でとは厚かましい限りですが、
お帰りに投票して頂けるとなお嬉しいです。 ⇒ blogram投票ボタン


131206
関連記事
スポンサーサイト

コメントの投稿

管理者にだけ表示を許可する

おきてがみ/blogram
blogram投票ボタン



おきてがみ

最新記事
カレンダー
05 | 2017/06 | 07
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -
月別アーカイブ
カテゴリ
最新コメント
検索フォーム
リンク
プロフィール

<紙>

Author:<紙>
ようこそ。
「パソコンヲタクの雑記帳」
もろもろなことを綴っています。
パソコン ヲタクってねくら?
画像は kami でなく kani です。

カウンター(fc2、i2i) /Google Analytics


i2i(from 2010-08-24)
Total =
Today  =  
Yesterday=
アンチエイジング

Google Analytics
ブックマーク