จงพิจารณาตัวอย่างต่อไปนี้
[src]
$dna="ATCGGCTA";
@output =split //,$dna;
print "Before: @output","n";
$dna2=join '-',@output;
print "After: $dna2","n";
[/src]
Printable View
จงพิจารณาตัวอย่างต่อไปนี้
[src]
$dna="ATCGGCTA";
@output =split //,$dna;
print "Before: @output","n";
$dna2=join '-',@output;
print "After: $dna2","n";
[/src]