الموسيقى :: Chord :: Namer الموسيقى :: Chord :: Namer - أنت تعطيها ملاحظات، إنها تسمي الوتر.
التحميل الان

الموسيقى :: Chord :: Namer الترتيب والملخص

الموسيقى :: Chord :: Namer العلامات

الوحدة النمطية بيرل ملحوظات أسماء الملاحظات العطاء أسماء وتر

الموسيقى :: Chord :: Namer وصف

الموسيقى :: Chord :: Namer - أنت تعطيها ملاحظات، إنها تسمي الوتر. الموسيقى :: Chord :: Namer - أنت تعطيها ملاحظات، إنها تسمي Chord.synopsis استخدام الموسيقى :: ChordName QW / ChordName /؛ طباعة chordname (qw / c e g /)؛ # طباعة C Print ChordName (Q / C E G /)؛ # نفس (نعم، صفيف أو سلسلة!) طباعة chordname (QW / C EB G BB D /)؛ # يطبع CM9 طباعة chordname (QW / G C EB BB D /)؛ # المطبوعات CM9 / GMUSIC :: ChordName تقوم اختياريا بتصدير Choone Sub، وهو ما يقبل بعض الملاحظات إما سلسلة أو قائمة وإرجاع أفضل اسم وتر يمكن أن يفكر في exportnone بواسطة default.albestnamescalar|@namesarray = chordname ($ notesstring |notesarray) chordname () يقبل إما سلسلة من الملاحظات مثل "C EB GA #" أو قائمة الملاحظات مثل QW / AB BB F BB D /. في سياق العددية، تعيد أفضل اسم يمكن أن يفكر في وصف الوتر المصنوع من الملاحظات التي أعطيتها بها. في سياق صفيف، تقوم بإرجاع جميع الأسماء التي فكرت بها، مرتبة من الأفضل إلى الأسوأ (أقصر إلى أطول!) أمثلة لطباعة مجموعة من أسماء وتر الجيتار مع في خشية 4 ملاحظات كل، # كلها أقل من 5 ... foreach بلدي $ S1 (QW / - EF GB G AB /) {Foreach My S2 $ S2 (QW / - BB BC DB /) {Foreach My $ S3 (QW / - D EB EF GB /) {foreach بلدي S4 $ S4 ( QW / - G AB A BB /) {Foreach My S5 $ S5 (QW / - BC DB D EB /) {foreach بلدي S6 $ S6 (QW / - EF GB G AB /) {mynotesnotes = ()؛ دفع @ leotes، $ S1 ما لم $ s1 eq '-'؛ دفع @ notes، $ S2 ما لم $ s2 eq '-'؛ دفع @ notes، $ S3 ما لم $ s3 eq '-'؛ دفع @ notes، $ s4 ما لم $ s4 eq '-'؛ دفع @ notes، $ s5 ما لم $ s5 eq '-'؛ دفع @ notes، $ S6 ما لم $ s6 eq '-'؛ إذا (@ notes> = 4) {print scalar (chordname (@ notes))، '='، انضم ('، @ notes)، "n"؛ } } } } } } } متطلبات: perl.

الموسيقى :: Chord :: Namer برامج ذات صلة