Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7951[/thread]

sub - problem



<< >> 5 Einträge, 1 Seite
raggamuffin
 2006-05-08 21:36
#65745 #65745
User since
2005-12-22
2 Artikel
BenutzerIn
[default_avatar]
hallo.
ich hatte vor einiger zeit shconmal ein problem und da konntet ihr mir gut helfen. jetzt häng eich wieder an einem problem, dass für euch sicher leicht zu lösen ist.
ich habe folgendes programm geschrieben, doch das unterprogramm läuft nicht. ich wäre euch sehr dankbar, wenn ihr mir helfen könntet.


Code: (dl )
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
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl

$DNA_Fragment_1 = 'AAAGGCGCGCGCGCGCGCGTATAGCGCGCGCGCGAAAG';
$DNA_Fragment_1_Laenge = length($DNA_Fragment_1);
$DNA_Fragment_1_GC_Paare = 12;
$GC_Gehalt_Frag_1 = int((100/$DNA_Fragment_1_Laenge)*$DNA_Fragment_1_GC_Paare);

$DNA_Fragment_2 = 'attatttatatagcgcg';
$DNA_Fragment_2_Laenge = length($DNA_Fragment_2);
$DNA_Fragment_2_GC_Paare = 2;
$GC_Gehalt_Frag_2 = int((100/$DNA_Fragment_2_Laenge)*$DNA_Fragment_2_GC_Paare);

print "Sequenz 1:\t$DNA_Fragment_1\n";
$L_1 = length($DNA_Fragment_1);
print "Laenge der Sequenz 1:\t$L_1\n";
print "Anzahl der GC-Paare in Sequenz 1:\t$DNA_Fragment_1_GC_Paare\n";
print "GC-Gehalt in %:\t$GC_Gehalt_Frag_1\n\n";


print "Sequenz 2:\t$DNA_Fragment_2\n";
$L_2 = length($DNA_Fragment_2);
print "Laenge der Sequenz 2:\t$L_2\n";
print "Anzahl der GC-Paare in Sequenz 2:\t$DNA_Fragment_2_GC_Paare\n";
print "GC-Gehalt in %:\t$GC_Gehalt_Frag_2\n\n";


sub KONKAT {
$Konkat_Sequenz = $DNA_Fragment_1.$DNA_Fragment_2;
$Differenz_Frag_1_Frag_2 = $DNA_Fragment_1_Laenge - $DNA_Fragment_2_Laenge;
$Konkate_Frag_1_Frag_2 = $DNA_Fragment_1_Laenge + $DNA_Fragment_2_Laenge;
$Konkate_GC_Paare = $DNA_Fragment_1_GC_Paare + $DNA_Fragment_2_GC_Paare;
$GC_Gehalt_Konkat = int((100/$Konkate_Frag_1_Frag_2)*$Konkate_GC_Paare);

print "Konkatenierung Fragment1 - Fragment2:\n\n";
print "Sequenz: \t$Konkat_Sequenz\n";
print "Laenge: \t$Konkate_Frag_1_Frag_2\n";
print "Anzahl der GC Paare: \t$Konkate_GC_Paare\n";
print "GC-Gehalt (in % der Gesamtlaenge): \t$GC_Gehalt_Konkat\n";
print "Laengendifferenz Fragment1 - Fragment2: \t$Differenz_Frag_1_Frag_2\n\n";
}  ;




im vorraus schon mal besten dank.

raggamuffin


//Modedit GwenDragon: +Code-Tags\n\n

<!--EDIT|GwenDragon|1147110773-->
GwenDragon
 2006-05-08 21:50
#65746 #65746
User since
2005-01-17
14563 Artikel
Admin1
[Homepage]
user image
Bitte Code-Tags für Perlcode benutzen
http://board.perl-community.de/cgi-bin....=ibcode
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
GwenDragon
 2006-05-08 22:27
#65747 #65747
User since
2005-01-17
14563 Artikel
Admin1
[Homepage]
user image
Wie wärs damit:
Code: (dl )
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
31
32
33
34
35
36
37
38
$DNA_Fragment_1 = 'AAAGGCGCGCGCGCGCGCGTATAGCGCGCGCGCGAAAG';
$DNA_Fragment_1_Laenge = length($DNA_Fragment_1);
$DNA_Fragment_1_GC_Paare = 12;
$GC_Gehalt_Frag_1 = int((100/$DNA_Fragment_1_Laenge)*$DNA_Fragment_1_GC_Paare);

$DNA_Fragment_2 = 'attatttatatagcgcg';
$DNA_Fragment_2_Laenge = length($DNA_Fragment_2);
$DNA_Fragment_2_GC_Paare = 2;
$GC_Gehalt_Frag_2 = int((100/$DNA_Fragment_2_Laenge)*$DNA_Fragment_2_GC_Paare);

print "Sequenz 1:\t$DNA_Fragment_1\n";
$L_1 = length($DNA_Fragment_1);
print "Laenge der Sequenz 1:\t$L_1\n";
print "Anzahl der GC-Paare in Sequenz 1:\t$DNA_Fragment_1_GC_Paare\n";
print "GC-Gehalt in %:\t$GC_Gehalt_Frag_1\n\n";


print "Sequenz 2:\t$DNA_Fragment_2\n";
$L_2 = length($DNA_Fragment_2);
print "Laenge der Sequenz 2:\t$L_2\n";
print "Anzahl der GC-Paare in Sequenz 2:\t$DNA_Fragment_2_GC_Paare\n";
print "GC-Gehalt in %:\t$GC_Gehalt_Frag_2\n\n";

sub KONKAT {
$Konkat_Sequenz = $DNA_Fragment_1.$DNA_Fragment_2;
$Differenz_Frag_1_Frag_2 = $DNA_Fragment_1_Laenge - $DNA_Fragment_2_Laenge;
$Konkate_Frag_1_Frag_2 = $DNA_Fragment_1_Laenge + $DNA_Fragment_2_Laenge;
$Konkate_GC_Paare = $DNA_Fragment_1_GC_Paare + $DNA_Fragment_2_GC_Paare;
$GC_Gehalt_Konkat = int((100/$Konkate_Frag_1_Frag_2)*$Konkate_GC_Paare);
}

KONKAT();
print "Konkatenierung Fragment1 - Fragment2:\n\n";
print "Sequenz: \t$Konkat_Sequenz\n";
print "Laenge: \t$Konkate_Frag_1_Frag_2\n";
print "Anzahl der GC Paare: \t$Konkate_GC_Paare\n";
print "GC-Gehalt (in % der Gesamtlaenge): \t$GC_Gehalt_Konkat\n";
print "Laengendifferenz Fragment1 - Fragment2: \t$Differenz_Frag_1_Frag_2\n\n";
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
betterworld
 2006-05-08 23:00
#65748 #65748
User since
2003-08-21
2613 Artikel
ModeratorIn

user image
Ich habe soeben Wiki:Wie frage ich im Forum auf den neuesten Stand gebracht. Ich möchte Dir diese Lektüre drindend ans Herz legen.
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class
renee
 2006-05-09 00:27
#65749 #65749
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du rufst die Sub nicht auf. Das Programm kann daher nicht wissen, wann die Methode ausgeführt werden soll.

Du solltest Dir vielleicht in Zukunft auch Wiki:use strict verwenden...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 5 Einträge, 1 Seite



View all threads created 2006-05-08 21:36.